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 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 Const MF_BITMAP = &H4&
 
'Anleitung:
' 1 Form:
' Form1
 
' 4 PictureBox:
' Picture1.Picture
' Picture2.Picture
' Picture3.Picture
' Picture4.Picture
' Icons in der Größe 16x16 verwenden.
 
' 1 Menü:
' Datei mnuDatei
' 3 Untermenüs mit Öffnen, Speichern, Beenden
 
' 1 Menü:
' Bearbeiten mnuBearbeiten
' 1 Untermenü Löschen
 
Private Sub Form_Load()
Dim hMenu&, hSubMenu&, hMenuItem&
 
hMenu = GetMenu(Form1.hwnd)             'Menüleisten allgemein
hSubMenu = GetSubMenu(hMenu, 0)         'Menü 1 "Datei" (mnuDatei)
 
hMenuItem = GetMenuItemID(hSubMenu, 0)  'Menüpunkt "Öffnen" (mnuÖffnen)
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Picture2.Picture, _
  Picture2.Picture
 
hMenuItem = GetMenuItemID(hSubMenu, 1)  'Menüpunkt "Speichern" (mnuSpeichern)
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Picture1.Picture, _
  Picture1.Picture
 
hMenuItem = GetMenuItemID(hSubMenu, 2)  'Menüpunkt "Beenden" (mnuBeenden)
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Picture3.Picture, _
  Picture3.Picture
 
hSubMenu = GetSubMenu(hMenu, 1)         'Menü 2 "Bearbeiten" (mnuBearbeiten)
 
hMenuItem = GetMenuItemID(hSubMenu, 0)  'Menüpunkt "Löschen" (mnuLöschen)
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Picture4.Picture, _
  Picture4.Picture
 
End Sub