GUI Program to Demonstrate Timer control

Public mintcount As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
mintcount = mintcount + 1
Label1.Caption = "timer count is:" & mintcount
End Sub