'// Läd alle Bitmaps aus dem Array
Public Sub LoadIcons(IconFiles() As String, Optional Width As Long = 13, _
  Optional Height As Long = 13)
Dim imgCount As Long, n As Long
 
imgCount = UBound(IconFiles)
ReDim ImgHandle(imgCount)
 
'Icons laden
For n = 0 To imgCount
    ImgHandle(n) = LoadImage(App.hInstance, App.Path & "\" & IconFiles(n), _
      IMAGE_BITMAP, Width, Height, LR_LOADFROMFILE)
Next n
 
End Sub
 
 
'// Zeigt Icons im Menü an
Public Sub SetIcons(Frm As Form, MenuNR As Long, SubMenuCount As Long, Optional _
  SubMenuStart As Long = 0)
' MenuNr - Hauptmenü Nummer
' SubMenuCount - Anzahl der Untermenüs ab SubMenuStart
 
Dim MenuBar As Long
Dim Menu As Long
Dim SubMenu As Long
Dim n As Long
 
'Handle der Menüleiste
MenuBar = GetMenu(Frm.hwnd)
 
 
'Handle des Menüs (von links)
Menu = GetSubMenu(MenuBar, MenuNR)
 
For n = 0 To SubMenuCount
    'Handle des n-ten Eintrages im Menü
    SubMenu = GetSubMenu(Menu, n + SubMenuStart)
    SetMenuItemBitmaps Menu, SubMenu, MF_BITMAP, _
      ImgHandle(n), 0&
Next n
 
End Sub