.........
 
FormatTime = sFormat
End Function
 
 
 
Private Sub Form_Load()
    Initialize
End Sub
 
Private Sub Initialize()
 
    ' Eigenschaften des Timers (NAME=TimerCounter) setzen.
    TimerCounter.Interval = 1000    ' Timer reagiert jede 1000 ms, also jede 
    ' Sekunde.
 
    ' Eigenschaften der ListView (NAME=lvwCounts) setzen.
    lvwCounts.View = lvwReport
    lvwCounts.ColumnHeaders.Add 1, , "Zeit"
 
    cmdAdd.Enabled = False
    cmdReset.Enabled = False
    lblProjektzeit.Caption = FormatTime(iSeconds, "s", "hh:mm:ss")
    txtCount.Text = FormatTime(iSeconds, "s", "hh:mm:ss")
End Sub
 
Private Sub TimerCounter_Timer()
    ' Dies ist das Event, das nach einer Sekunde vom Timer aufgerufen wird.
 
    iSeconds = iSeconds + 1
 
    txtCount.Text = FormatTime(iSeconds, "s", "hh:mm:ss")
 
End Sub
 
Private Sub cmdStart_Click()
 
    Select Case cmdStart.Caption
 
        Case "Start":
            ' Timer starten + Sekunden auf 0 setzen
            cmdStart.Caption = "Pause"
            iSeconds = 0
            TimerCounter.Enabled = True
            cmdAdd.Enabled = False
            cmdReset.Enabled = False
 
        Case "Pause":
            ' Timer pausieren
            cmdStart.Caption = "Fortsetzen"
            TimerCounter.Enabled = False
            cmdAdd.Enabled = True
            cmdReset.Enabled = True
 
        Case "Fortsetzen":
            ' Timer fortsetzen lassen
            cmdStart.Caption = "Pause"
            TimerCounter.Enabled = True
            cmdAdd.Enabled = False
            cmdReset.Enabled = False
 
    End Select
 
End Sub
 
Private Sub cmdReset_Click()
 
    iSeconds = 0 ' wird auch beim starten nochmal auf 0 gesetzt... egal sicher 
    ' is sicher :P
    txtCount.Text = FormatTime(iSeconds, "s", "hh:mm:ss")
    cmdStart.Caption = "Start"
 
    cmdAdd.Enabled = False
    cmdReset.Enabled = False
 
End Sub
 
Private Sub cmdAdd_Click()
    lvwCounts.ListItems.Add , , txtCount.Text   ' Zeit in die Listview eintragen
End Sub