' benötigte API-Deklaration
Private Declare Function WaitForSingleObject Lib _
  "kernel32" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long

' z.B. 1000 für 1 Sekunde
Public Function Wait(ByVal mSek As Long)
  WaitForSingleObject -1, mSek
End Function

Do
  Wait 250
  DoEvents
Loop While bDatenfertig = FALSE

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de