In questo tutorial insegnero' ad inserire delle immagini .bmp (bitmap)
di dimensioni massime 13 x 13 nelle voci dei menu'.
Allora, creiamo un nuovo progetto e inseriamo nel form quattro
controlli PictureBox nei quali inseriamo 4 bitmaps 13 x 13. Accediamo
All 'Editor di Menu' (cliccate col tasto destro sul form e premete
Editor di menu'...) e inserite i seguenti menu':
Menu ' numero 1
    Sottomenu ' numero 1
    Sottomenu ' numero 2
Menu ' numero 2
    Sottomenu ' numero 1
    Sottomenu ' numero 2
Poi dichiariamo le funzioni e le costanti per inserire le immagini nei
Menu ':

Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal
hMenu As Long, _
ByVal uPosition As Long, ByVal uFlags As Long, ByVal hBitmapUnchecked _ As Long, ByVal hBitmapChecked As Long) As Long
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 GetMenuItemID Lib "user32" (ByVal hMenu As
Long, _
ByVal nPos As Long) As Long
Private Const MF_BITMAP As Long = &H1

Inseriamo poi il seguente codice:

Private Sub Form_Load()
Menu = GetMenu(Me.hwnd)
' Inserisce nel primo sottomenu' del primo menu' l'immagine contenuta nella Picture1
sMenu = GetSubMenu(Menu, 0)
ID = GetMenuItemID(sMenu, 0)
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture1.Picture, Picture1.Picture
' Inserisce nel secondo sottomenu' del primo menu' l'immagine contenuta nella Picture2
sMenu = GetSubMenu(Menu, 0)
ID = GetMenuItemID(sMenu, 2)
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture2.Picture, Picture2.Picture
' Inserisce nel primo sottomenu' del secondo menu' l'immagine contenuta nella Picture3
sMenu = GetSubMenu(Menu, 1)
ID = GetMenuItemID(sMenu, 0)
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture3.Picture, Picture3.Picture
' Inserisce nel secondo sottomenu' del secondo menu' l'immagine contenuta nella Picture4
sMenu = GetSubMenu(Menu, 1)
ID = GetMenuItemID(sMenu, 1)
SetMenuItemBitmaps Menu, ID, MF_BITMAP, Picture4.Picture, Picture4.Picture
End Sub

Ed ecco i nostri menu' abbelliti...