مثالی از رویداد تایمر فرم

فرض کنید باتنی دارید که بعد از تایپ حروفی در تکست باکس کار فیلتر یا جستجو را انجام داده و در صورت یافتن یا ... پیامی را در لیبلی که Visible نیست نمایان میکند و مدت معینی با TimeInterval لیبل به حالت چشمک زن در می آید و بعد از فوکس کردن به تکست باکس دوباره لیبل Hide میشود.

در رویداد کلیک باتن TimeInterval را تنظیم کنید فرضا به 300 میلی ثانیه .... در ضمن نام آبجکت لیبل lblMsg است .

Private Sub Form_Timer()
L = L + 1
Select Case L
    Case 1, 3, 5, 7, 9, 11, 13, 15, 17
        Me.lblMsg.Visible = True
        Me.lblMsg.Visible = False
    Case 2, 4, 6, 8, 10, 12, 14, 16, 18
    Case 19
       Me.TimerInterval = 0
       Me.lblMsg.forecolor = forecolor
       Me.lblMsg.Visible = True
End Select
End Sub
Private Sub TxtSearch_GotFocus()
     Me.lblMsg.Visible = False
End Sub