Getting the handle of the active window

[smalldady]

How do I get the handle of the window that is currently focused?

[super000_98]

Use the API call GetForegroundWindow()
This returns the handle of the window that currently has focus. First you need to paste this into your code so you have access to the call:

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


Then you can call this without any parameters. The return value is a long

[chrisjk]

I think you need the GetForegroundWindow API...Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Activate()

Dim Ret As Long

Do
'Get the handle of the foreground window
Ret = GetForegroundWindow()
'Get the foreground window's device context
Ret = GetDC(Ret)
'draw an ellipse
Ellipse Ret, 0, 0, 200, 200
DoEvents
Loop

End Sub
That is an example that draws an ellipse on the active window

[smalldady]

Thanks that did the trick.