Alarmklok: code

Om de tijd in te stellen:
Private Sub cmdSetTijd_Click()
On Error Resume Next tijd = InputBox("Geef de tijd")
lblTijd.Caption = "Ingestelde tijd: " & Format(tijd, "hh:mm:ss")
End Sub
Als de gebruiker start, activeren we de timer. Eerst controleren we natuurlijk of er ene tijd is ingesteld:
Private Sub cmdStart_Click()
If lblTijd.Caption = "Ingestelde tijd: " Or lblTijd.Caption = "" Then Exit Sub
Timer1.Interval = 1000 Timer1.Enabled = True
End Sub
De timer (interval = 1000) telt telkens één seconde erbij.
Private Sub Timer1_Timer()
    verlopentijd = verlopentijd + #12:00:01 AM#
    lblVerlopen.Caption = "Verlopen tijd: " & verlopentijd & vbCrLf & "Nog te gaan: " & Format(tijd - verlopentijd, "hh:mm:ss")
    If verlopentijd >= tijd Then
        Beep
        Timer1.Enabled = False
    End If
End Sub
Er is nog een andere mogelijkheid, die ermee rekening houdt dat de timer niet altijd exact kan meten, omdat er processortijd wordt voorbehouden
Twee algemene variabelen:
Dim starttijd As Date
Dim verlopentijd As Date
Bij het starten activeren we de timer en stellen de starttijd in
starttijd = Now
Timer1.Interval = 1000
Timer1.Enabled = True
De timer telt zelf niet, maar meet gewoon.
verlopentijd = Now - starttijd
De rest is analoog.