Option Explicit
Private intincrement As Integer

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
Command2.Visible = False
Command3.Visible = True
aol1(0).Visible = True
aol1(1).Visible = False
aol1(2).Visible = False
intincrement = 0
Timer1.Interval = 1
End Sub

Private Sub Command3_Click()
Command3.Visible = False
Command2.Visible = True

End Sub


Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

Private Sub Tmraol_Timer()
aol1(intincrement).Visible = False
If intincrement = 2 Then
intincrement = 0
Else
intincrement = intincrement + 1
End If
aol1(intincrement).Visible = True
End Sub


This is my code. It is a code for a timer. It runs more like a clock and I would like it to start from zero instead of starting from the same time my computer is. I would also like my command button to stop the counting but not unload the program.