How can you get a handle (hwnd) to the active form in VBA?

[Eric Juvet]

In VB6, the handle to the activeform is simply Me.hwnd or Form1.hwnd.

In VBA, "hwnd" is not a property. How can you get a handle to the active
form in VBA? Undoubtedly it would require a WinAPI call which I know how to
do.

- Eric Juvet

 

[Jonathan West]

In VB6, the handle to the activeform is simply Me.hwnd or Form1.hwnd.

In VBA, "hwnd" is not a property. How can you get a handle to the active
form in VBA? Undoubtedly it would require a WinAPI call which I know how to
do.

- Eric Juvet

Place the following code in your UserForm

Before the first routine, include the following

Public hWnd as Long
Private Declare Function GetActiveWindow Lib "user32" _
Alias "GetActiveWindow" () As Long

Then put the following code at the start of the UserForm_Activate event

hWnd = GetActiveWindow()

You can then use hWnd as a property of the UserForm