2 Labels
2 Buttons
Converted to vb6 for all you vb6 nubs xD
Code:
Dim stpmin As Integer
Dim stpsec As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Label1.Caption = "0:0"
Label2.Caption = "Last: " & stpmin & ":" & stpsec
stpsec = 0
stpmin = 0
End Sub
Private Sub Timer1_Timer()
Dim sptmin As Integer
Dim sptsec As Integer
If stpsec = 59 Then
sptmin = stpmin
stpmin = sptmin + 1
stpsec = -1
End If
sptsec = stpsec
stpsec = sptsec + 1
Label1.Caption = stpmin & ":" & stpsec
End Sub