Attribute VB_Name = "Module1"
Public Declare Function GetMenu Lib "user32" _
( _
    ByVal hwnd As Long _
    ) As Long
'獲得窗口中的菜單
'-------------------------------------------------------
Public Declare Function GetSubMenu Lib "user32" _
( _
    ByVal hMenu As Long, _
    ByVal nPos As Long _
    ) As Long
'獲得菜單中的子菜單(下一級菜單)
'-------------------------------------------------------
Public Declare Function GetMenuItemID Lib "user32" _
( _
    ByVal hMenu As Long, _
    ByVal nPos As Long _
    ) As Long
'獲得菜單項
'-------------------------------------------------------
Public Declare Function GetMenuItemCount Lib "user32" _
( _
    ByVal hMenu As Long _
    ) As Long
'獲得指定菜單下菜單項的數目
'-------------------------------------------------------
Public Declare Function GetMenuItemInfo Lib "user32" _
Alias "GetMenuItemInfoA" _
( _
    ByVal hMenu As Long, ByVal un As Long, _
    ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO _
    ) As Boolean
'獲得指定菜單項的信息
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
Public Const MIIM_ID = &H2
Public Const MIIM_TYPE = &H10
Public Const MFT_STRING = &H0&
'-------------------------------------------------------
Public Declare Function SetMenuItemBitmaps Lib "user32" _
( _
    ByVal hMenu As Long, _
    ByVal nPosition As Long, _
    ByVal wFlags As Long, _
    ByVal hBitmapUnchecked As Long, _
    ByVal hBitmapChecked As Long _
    ) As Long
'設置菜單項
Public Const MF_BITMAP = &H4&
'-------------------------------------------------------