Noch diese API-Funktion hinzufügen:

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)



'FindWindow suchen lassen:

Dim i As Long



Do While hWnd = 0

      Sleep 100

      hWnd = FindWindow(vbNullChar,sWinName)

      i = i + 1

      If i > 20 Then Exit Function

Loop