Private Sub Timer1_Timer() If (d.Caption = 60) Then d.Caption = 0 e.Caption = e.Caption + 1 Else d.Caption = d.Caption + 1 End IfEnd Sub