pega este codigo y proba, si te sirve investigalo y te vas a dar cuenta como hacer para los otros.
De nada
//Hormiga\\
Option Explicit
'Este proyecto necesita un Form con un menu y al menos un submenu
'Tambien un pictureBox con una imagen pequeña (16x16) blanco y negro
Const MF_BYPOSITION = &H400&
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 Sub Form_Load()
Dim hMenu As Long, hSubMenu As Long
'Obtiene el "handle" del menu
hMenu = GetMenu(Me.hwnd)
'Controla si hay menu
If hMenu = 0 Then
MsgBox "Este form no tiene menu"
Exit Sub
End If
'get the first submenu
hSubMenu = GetSubMenu(hMenu, 0)
'Controla si hay submenu
If hSubMenu = 0 Then
MsgBox "Este form no tiene Sub-Menu"
Exit Sub
End If
'set the menu bitmap
SetMenuItemBitmaps hSubMenu, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Picture
End Sub