تشخیص فوکوس بودن یک پنجره خاص

[S_VB.max]

چگونه می توان فوکوس بودن یک پنجره مثل پنجره سایت یاهو را تشخیص دهم؟
با تشکر

[sohrab o]

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Public Function ReadW() As String
Dim CurrentWindow
If CurrentWindow <> GetCaption(GetForegroundWindow) Then
CurrentWindow = GetCaption(GetForegroundWindow)
If CurrentWindow = "" Then Exit Function
ReadW = CurrentWindow
End If
End Function

[sohrab o]

این تابع پنجره فعال رو میده
باید چک کنی که یاهو یا نه؟
اگه مشکلی بود در خدمتم