Even though there are menus and sub menus I get 0
but when I use Notepad I get valid handle.
Code:
Dim AppHwnd As Long
AppHwnd = FindWindow(vbNullString, "Project1 - Microsoft Visual Basic [run]")
hMenubar = GetMenu(AppHwnd)
'
'Code:
Dim AppHwnd As Long
AppHwnd = FindWindow(vbNullString, "Untitled - Notepad")
hMenubar = GetMenu(AppHwnd)
'
'