Timer Example


A very simple program to show you how to work with the Timer control.



                                                   >> DOWNLOAD
 


Screenshot:




Code:
Private Sub cmdClearPrintMsg_Click()
    Cls
End Sub
________________________________________________
Private Sub cmdStartTimer_Click()
    Timer1.Enabled = True
    Timer1.Interval = Val(txtInterval.Text)
End Sub
________________________________________________
Private Sub cmdStopTimer_Click()
    Timer1.Enabled = False
End Sub
________________________________________________
Private Sub cmdClearInterval_Click()
    txtInterval.Text = ""
End Sub
________________________________________________
Private Sub cmdClearMsg_Click()
    txtMsg.Text = ""
End Sub
________________________________________________
Private Sub Timer1_Timer()
    Print txtMsg.Text
End Sub