'Alle benötigten API-Deklarationen
Public 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
 
Public Declare Function GetMenu Lib "user32" _
  (ByVal hwnd As Long) As Long
 
Public Declare Function GetSubMenu Lib "user32" _
  (ByVal hMenu As Long, ByVal nPos As Long) As Long
 
Public Declare Function GetMenuItemID Lib "user32" _
  (ByVal hMenu As Long, ByVal nPos As Long) As Long
 
Public 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
 
Public Declare Function GetSystemMenu Lib "user32" _
  (ByVal hwnd As Long, ByVal bRevert As Long) As Long
 
Public Declare Function DeleteObject Lib "gdi32.dll" _
  (ByVal hObject As Long) As Long
 
 
'Einige Konstanten
Public Const MF_BYPOSITION = &H400
Public Const MF_BITMAP = &H4&
Public Const LR_LOADFROMFILE = &H10
Public Const IMAGE_BITMAP = 0