' *********************************************************
' *
' *                     Modul Delay
' *
' *********************************************************
Option Explicit
 
' API Declaration
Public Declare Function GetTickCount Lib "kernel32" () As Long
 
 
Public Sub Delay(nSekunden As Long)
  Dim TimeOut As Long
 
  ' Abbruchbedingung für die Do Loop Schleife ermitteln
  TimeOut = (GetTickCount / 1000) + nSekunden
 
  Do
    ' Systemevents zulassen
    DoEvents
 
    ' TimeOut erreicht?
  Loop Until TimeOut < (GetTickCount / 1000)
End Sub

Option Explicit
Private beenden As Boolean
 
Private Sub Command1_Click()
Start:
If beenden = True Then 'Prüfen, ob zu stoppen
Exit Sub
Else 'Sonst:
Label1.Caption = Time
'*************** Dein Ereignis *****************
If Time = "14:50:00" Then
MsgBox "Zeit Erreicht"
End If
'***********************************************
Delay 1 'Aktualisierungsintervall
GoTo Start ' Neustart
End If
End Sub
 
 
'Wichtig: Schleife vor dem Beenden stoppen
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
beenden = True
End Sub

Michael