Private lngTimer As Long
Private lngZeit As Long

Private Sub Command1_Click()
' In 15 Minuten wird geweckt
	tmrMinute.Enabled = True
	lngZeit = 15
	Me.Caption = "Noch " & (lngZeit - lngTimer) & " Minute(n)"
End Sub

Private Sub tmrMinute_Timer()
lngTimer = lngTimer + 1
Me.Caption = "Noch " & (lngZeit - lngTimer) & " Minute(n)"

    If lngTimer Mod lngZeit = 0 Then
        lngTimer = 0
        Me.Caption = lngZeit & " Minuten sind abgelaufen"
        tmrMinute.Enabled = False
    End If

End Sub

Private Sub Form_Load()
    tmrMinute.Interval = 60000  'Minutentakt
    tmrMinute.Enabled = False
End Sub