Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst _
  As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 _
  As Long, ByVal un2 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 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 DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) _
As Long
Private Const MF_BYPOSITION = &H400
Private Const MF_BITMAP = &H4&
Private Const IMAGE_BITMAP = 0
 
Dim logo(1) As Long, Menüleiste As Long, Menü As Long, MenüEintrag As Long
 
  logo(0) = LoadImage(App.hInstance, "LOGO02", IMAGE_BITMAP, 16, 16, 0)
  logo(1) = LoadImage(App.hInstance, "LOGO01", IMAGE_BITMAP, 16, 16, 0)
 
  Menüleiste = GetMenu(Me.hwnd)
  Menü = GetSubMenu(Menüleiste, 0)
  MenüEintrag = GetMenuItemID(Menü, 2)
  SetMenuItemBitmaps Menü, MenüEintrag, MF_BITMAP, logo(0), logo(1)