Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() Text1 = 0 Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Text1 = Val(Text1) + 1 End Su