'MODUL:
Option Explicit
 
Private Declare Function WaitMessage Lib "user32.dll" () As Long
 
Private Declare Function CreateTimerQueue Lib "kernel32.dll" () As Long
 
Private Declare Function CreateTimerQueueTimer Lib "kernel32.dll" ( _
    ByRef hTimerQ As Long, _
    ByVal hQueue As Long, _
    ByVal pCallBack As Long, _
    ByVal lParam As Long, _
    ByVal nDuration As Long, _
    ByVal nPeriote As Long, _
    ByVal nFlags As Long) As Long
 
Private Declare Function DeleteTimerQueue Lib "kernel32.dll" ( _
     ByVal TimerQueue As Long) As Long
 
Private Declare Function DeleteTimerQueueTimer Lib "kernel32.dll" ( _
     ByVal TimerQueue As Long, _
     ByVal Timer As Long, _
     ByVal CompletionEvent As Long) As Long
 
Private hQueue As Long
Private hTimerQ As Long
Private doBreak As Boolean
 
Dim i As Long 'Variable zum Testen
 
Private Function WaitForTimer(lParam As Long, ByVal nWhat As Long) As Long
    DeleteTimerQueueTimer hQueue, hTimerQ, 0
    DeleteTimerQueue hQueue
    doBreak = True
End Function
 
Public Sub WaitforMyTime(ByVal nMilliseconds As Long)
 
    hQueue = CreateTimerQueue
    CreateTimerQueueTimer hTimerQ, hQueue, AddressOf WaitForTimer, 0, _
      nMilliseconds, 0, 0
    doBreak = False
 
    Do While doBreak = False
       WaitMessage
       DoEvents
       i = i + 1 'um eines Höcher zählen
       Form1.Caption = i 'Im form titel anzeigen 
    Loop
 
End Sub
 
'FORMULAR:
Private Sub Form_Load()
Me.Show
WaitforMyTime (3000) '3 Sekunden warten
MsgBox "Weiter gehts"
End Sub