Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
 
Dim handle1 As IntPtr
Dim HandleTop As Long
 
handle1 = FindWindow("...", vbNullString)
 
HandleTop = GetForegroundWindow()
If oHandleTop = handle1 Then
 
end if