Originally posted by Killer42
Code:
Dim intDisplay as integer
Private Sub Timer1_Timer()
If Check1.Value = 1 Then
if intDisplay > 10000 then intDisplay = 99
intDisplay = intDisplay + 1
Text1.Text = intDisplay
End if
End Sub
Private Sub Check1_Click()
intDisplay = 100
End Sub
Comment