Option Explicit
 
Private cntHour, cntMin, cntSec As Integer
 
Private Sub cmdStart_Click()
 
    tmrCount.Enabled = False 'falls er läuft und du neu starten willst
    cntHour = 0
    cntMin = 0
    cntSec = 0
    lblShow.Caption = TimeSerial(cntHour, cntMin, cntSec)
    tmrCount.Enabled = True
 
End Sub
 
Private Sub tmrCount_Timer()
 
    cntSec = cntSec + 1
 
    If cntSec = 60 Then
        cntMin = cntMin + 1
        cntSec = 0
    End If
    If cntMin = 60 Then
        cntHour = cntHour + 1
        cntMin = 0
    End If
    If cntHour = 24 Then cntHour = 0
 
    lblShow.Caption = TimeSerial(cntHour, cntMin, cntSec)
 
End Sub