'
' GetForegroundWindow
'
' Author: Joe Strazzere
'
' "user32" Alias "GetForegroundWindow" () As Long
'
msgbox("here we go")
pause 3 seconds
a = External("user32","GetForegroundWindow")
msgbox("Handle="+str$(a)+crlf+crlf+"Name="+GetWindowName$(a),0,"GetForegroundWindow")
