Кто может подсказать по сабжу?

Спасибо я понял, но прибег к следующему коду, (если интересно)
здесь идет проверка по заголовку окна и пока оно не будет активным, то задача дальше не выполняется:

Public Declare Function GetForegroundWindow Lib "user32" () As Long

Public Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" (ByVal Hwnd As Long, _
ByVal lpString As String, ByVal cch As Long) As Long

'------------------------------------------------------------------------
Function CaptionOfActiveWindow() As String
Dim strCaption As String
Dim lngLen As Long

strCaption = String$(255, vbNullChar)
lngLen = Len(strCaption)
If GetWindowText(GetForegroundWindow, strCaption, lngLen) > 0 Then
CaptionOfActiveWindow = strCaption
End If
End Function
'------------------------------------------------------------------------
ну и непосредственно - проверка
----
----
Do While InStr(CaptionOfActiveWindow, "Эмулятор") = 0
AppActivate "Эмулятор", False
Sleep (10)
Loop
----
----