Die fertige Stopuhr hat folgendes Aussehen:





Beim Erstellen sieht das Formular so aus:

Option Explicit
Dim Startzeit
Dim Stopen

---

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

---

Private Sub cmdstart_Click()
lblstarth.Caption = " "
lblstoph.Caption = " "
lbl1txt.Caption = " "
lbl2txt.Caption = " "
startzeit = Time
lblstarth.Caption = Format(Time, "hh:mm:ss")Timer1.Enabled = True
lbl1txt.Caption = "Startzeit"
End Sub

---

Private Sub cmdstop_Click()
Stopen = startzeit - Time
Timer1.Enabled = False
lblstoph.Caption = Format(Stopen, "hh:mm:ss")
lbl2txt.Caption = "Stopzeit" & Chr(13) & Time
End Sub

---

Private Sub mnuhelp_Click()
Load Hilfe
Hilfe.Show
End Sub

---

Private Sub Timer1_Timer()
lblstoph.Caption = Format(Time, "hh:mm:ss")
End Sub

---

Die Eigenschaften müssen angepasst werden.
z.B. beim Timer der Interval ~ 100