Option Explicit
 
Private Declare Function GetMenu Lib "user32" (ByVal _
        hwnd As Long) As Long
 
Private Declare Function GetSubMenu Lib "user32" (ByVal _
        hMenu As Long, ByVal nPos As Long) As Long
 
Private 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
 
Private Declare Function GetSystemMenu Lib "user32" (ByVal _
        hwnd As Long, ByVal bRevert As Long) As Long
 
Private Declare Function AppendMenu Lib "user32" Alias _
        "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As _
        Long, ByVal wIDNewItem As Long, ByVal lpNewItem As _
        String) As Long
 
Const MF_STRING = &H0&
Const MF_SEPARATOR = &H800&
Const MF_BYPOSITION = &H400&
Const MF_BYCOMMAND = &H0&
 
Private Sub Form_Load()
  Dim h1&, h2&
    h1 = GetMenu(Me.hwnd)
    h2 = GetSubMenu(h1, 0)
    Call SetMenuItemBitmaps(h2, 0, MF_BYPOSITION, _
                            LoadPicture(App.Path & "\aaaa.ico"), LoadPicture( _
                            App.Path & "\aaaa.ico"))
    h2 = GetSubMenu(h1, 1)
    Call SetMenuItemBitmaps(h2, 0, MF_BYPOSITION, _
                            LoadPicture(App.Path & "\aaaa.ico"), LoadPicture( _
                            App.Path & "\aaaa.ico"))
End Sub