Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" _
(ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" _
(ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, _
ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
 
Const WM_COMMAND = &H111
Const WM_SYSCOMMAND = &H112
Const MF_BYPOSITION = &H400&
Const MF_POPUP = &H10&
Const SW_NORMAL = 1
Const SW_HIDE = 0
 
Private Sub Command1_Click()
    Dim n As Variant
    Dim hMainMenu As Long
    Dim hMenu As Long
    Dim MenuID As Long
    Dim MenuCount As Long
    Dim stringmenu As String
    Dim szbuff As String * 128
    Dim cabBuff As String * 128
    Dim HwndParent As Long
    Dim nPos As Integer
    Dim nID As Integer
    HwndParent = FindWindow("Notepad", vbNullString)
    If HwndParent = 0 Then Exit Sub
    hMainMenu = GetMenu(HwndParent)    'Obtiene el handle del menú de Notepad
    MenuCount = GetMenuItemCount(hMainMenu) 'Cuenta el número de menús (no submenus)
    For nPos = 0 To MenuCount - 1 'Bucle como tantos menús tenga notepad (son 5: 0,1,2,3,4)
 
        '//Obtiene las cabeceras
        Call GetMenuString(hMainMenu, nPos, cabBuff, 128, MF_BYPOSITION)
        List1.AddItem nPos & ": " & cabBuff
        For nID = -1 To 1000 'Como no se cuantos submenus tiene bucleo desde -1 al 1000 (se empieza desde -1)
            hMenu = GetSubMenu(hMainMenu, nPos) 'Obtiene el handle del submenú del menú Z
            MenuID = GetMenuItemID(hMenu, nID) 'Obtiene el ID del submenú
            If MenuID > -1 And MenuID > 0 Then
                Call GetMenuString(hMenu, MenuID, szbuff, 128, MF_BYPOSITION & MF_POPUP)
                    List2.AddItem "cab:" & nPos & "-> " & hMenu   '//Handle
                    List3.AddItem "cab:" & nPos & "-> " & MenuID   '//MenuID
                    List4.AddItem "cab:" & nPos & "-> " & szbuff   '//Nombre
                End If
        Next nID
    Next nPos
'//DEMOSTRACIÓN'//
'/////////////////////////////////
'//Envía un mensaje a Notepad
'//para que ejecute el menú Ayuda
'/////////////////////////////////
AppActivate "Sin título: Bloc de notas" '//Activa el notepad
MenuID = 65& '//-<--Introduce el ID del menú en la variable
SendMessage HwndParent, WM_COMMAND, MenuID, 0&    'esto ejecuta el ID 65 (Acerca de bloc de notas)
 
End Sub
 
 
Private Sub Form_Load()
'Inicia notepad.exe
Dim X As Long, hw As Long
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd.exe start  /r notepad.exe", SW_HIDE, 0
 
End Sub
 

 Private Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type
 
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" _
(ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long
 

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

 Public Function EliminarMenu(ByVal hwndAPP As Long)
    Dim HWNDMenu As Long
    Dim idpOS As Long
    Dim i As Integer
    Dim N As Long
Dim d As Long
    'hwnd del menu del programa
    HWNDMenu = GetMenu(hwndAPP)
    If HWNDMenu Then
        n_Menu = GetMenuItemCount(HWNDMenu)
        If n_Menu Then
        For i = 1 To n_Menu     'Recorre todos los menú y los elimina
        Call RemoveMenu(HWNDMenu, 0, MF_BYPOSITION)
        Next
        Call DrawMenuBar(hwndAPP)     'Repinta la barra de menú
        End If
    End If
End Function

Call EliminarMenu(hwndAPP)
 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
 
Dim hwndAPP As Long
 
Private Sub Form_Load()
Shell "notepad.exe", vbNormalFocus
Do While hwndAPP = 0
hwndAPP = FindWindow("Notepad", vbNullString)
DoEvents
Loop
End Sub
'//Oculgar menú
Private Sub Command1_Click()
Call EliminarMenu(hwndAPP)
End Sub
 
 Public Function EliminarMenu(ByVal hwndAPP As Long)
    Dim HWNDMenu As Long
    Dim idpOS As Long
    Dim i As Integer
    Dim N As Long
Dim d As Long
    'hwnd del menu del programa
    HWNDMenu = GetMenu(hwndAPP)
    If HWNDMenu Then
        n_Menu = GetMenuItemCount(HWNDMenu)
        If n_Menu Then
        For i = 1 To n_Menu     'Recorre todos los menú y los elimina
        Call RemoveMenu(HWNDMenu, 0, MF_BYPOSITION)
        Next
        Call DrawMenuBar(hwndAPP)  
        End If
    End If
End Function