AppActivate solo quando esiste la finestra aperta

[samoa]

Quando uso

AppActivate "titolo"

con visual basic 6

per attivare una finestra con "titolo" capita che se la finestra per
un problema qualsiasi ritarda ad aprirsi e viene il turno di
AppActivate "titolo" ottengo un errore.
Allora ho inserirto una pardita di tempo in pratica un for che
da il tempo alla finestra di aprirsi.
Tutto ciò però non mi soddisfa è solo una pezza per un buco.
Esiste un modo per accertarmi che la finestra con "titolo" sia aperta?

Ciao

[xegallo]

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

 'per richiamarla

dim lRes as long

lres = FindWindow("", titolo)

se lres > 0 la finestra c'è