hMenu = CreatePopupMenu() 
 
' Menüeintrag hinzufügen ("&Einfügen") 
With Mi(1) 
	.cbSize = Len(Mi(1)) 
	.dwTypeData = "&Einfügen" 
	.cch = Len(Trim$(.dwTypeData)) 
	.fMask = MIIM_TYPE Or MIIM_ID 
	.fState = MFS_DEFAULT Or msf_hilite 
	.fType = MFT_STRING 
	.wID = 1 
End With 
RetVal = InsertMenuItem(hMenu, 0&, 0&, Mi(1)) 
If RetVal = 0 Then 
Debug.Print "Menüeintrag konnte nicht hinzugefügt werden: (Einfügen)." 
End If 
hMenuItem = GetMenuItemID(hMenu, 0) 'Menüpunkt "Einfügen" 
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, frm_main.Picture2.Picture, _
  frm_main.Picture2.Picture