Finding HWND of a dialog

[Anonymous]

I have to make a few calls that want an HWND and I have no idea on how to
obtain this for the dialog I have on screen. The only thing I know where to
find, is the ThisDrawing.HWND, but with the result that the dialog on screen
does not
go active on return from my calls.

Does anyone know where to get the HWND?
I saw somewhere that you might use FindWindow but that one requires a long
pointer to the caption. How do I get that (I'm quite new to VBA) ?

Thanks,
Nils

[joesu]

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim hWnd As Long

hWnd = FindWindow vbNullString, "UserForm1"

Joe
--

[Anonymous]

Private Declare Function GetActiveWindow Lib "user32" () As Long

Public Property Get hWnd() As Long
hWnd = GetActiveWindow()
End Property


where needed, just use hWnd

===============================
Mike Tuersley
PhD @ CADalyst's AutoCAD Clinic
http://www.cadonline.com