Excel VBA - VBA Equivalent of hWnd property

[Hack]

I want to use the About Box API, which requires passing the hWnd of the calling form. In VB6, I would do

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" _
(ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, _
ByVal hIcon As Long) As Long

Private Sub mnuAbout_Click()
ShellAbout Me.hWnd, "My Program", "Another fine product from HackWare", ByVal 0&
End Sub

I did some Googling, and found what I thought would be the answer in Application.ActiveWindow.Hwnd. However, when I run this, I get an "Object Does Not Support This Property Or Method" run time error.

ShellAbout Application.ActiveWindow.hwnd, "Main Menu", "Another fine product from HackWare", ByVal 0&

So, for Excel VBA, what would I use as the hWnd of the spreadsheet (no userform in this project).

[Ron Weller]

Have you tried this:

ShellAbout Application.hwnd, "Main Menu", "Another fine product from HackWare", ByVal 0&

[Hack]

Ok, that worked, but why did it work?

What is the difference between Application.ActiveWindow.hwnd and Application.hWnd

[Ron Weller]

Easy, there is no hwnd property for ActiveWindow
At least according to the Intellisence list.

[Hack]

Easy, there is no hwnd property for ActiveWindow
At least according to the Intellisence list.

You are right.

Well, that is the last darn time I'm going to believe something I find on a Google search.

Thanks again.