Option Explicit
 
Dim Break As Boolean
 
Private Sub Command1_Click()
Dim i#, start, ENDE
Dim sDate, eDate
Dim nHour&, nMin&, nSec&, nDauer
Break = False
sDate = Now
eDate = CDate("01.11.03 12:00:00") 'hier dein Enddatum einsetzen
start = Timer
 
i = DateDiff("s", sDate, eDate)
Do While Timer < start + i And Break = False
 
nDauer = DateDiff("s", Now, eDate)
nHour = Fix(nDauer / 3600)
nMin = Fix((nDauer Mod 3600) / 60)
nSec = nDauer - ((nHour * 3600) + (nMin * 60))
Label1.Caption = nHour & ":" & nMin & ":" & nSec
DoEvents
 
Loop
ENDE = Timer
End Sub
 
Private Sub Command2_Click()
Break = True
End Sub