Private Sub Form_Load()
Call InsertItem
End Sub
 
Private Sub InsertItem()
    Dim hSysMenu As Long
    Dim count As Long
    Dim MenuItem As MENUITEMINFO
    Dim retval As Long
    Dim menu As Long
 
    menu = GetMenu(Form1.hwnd)
    hSysMenu = GetSubMenu(menu, 1)
   'Anzahl der Elemente:
    count = GetMenuItemCount(hSysMenu)
 
    'Zuerst noch einen Trennstrich einfügen:
    With MenuItem
        .cbSize = Len(MenuItem)
        .fMask = MenuItemM_ID Or MenuItemM_TYPE
        .fType = MFT_SEPARATOR
        .wID = 0 'Die ID des Eintrags
    End With
    retval = InsertMenuItem(hSysMenu, count, 1, MenuItem)
 
    With MenuItem
        .fMask = MIIM_STATE Or MIIM_ID Or MIIM_TYPE Or MIIM_SUBMENU
        .fType = MFT_STRING ' Der Eintag ist vom Typ String
        .fState = MFS_ENABLED 'DerEintrag soll enabled sein
        .wID = 1 'ID
        .dwTypeData = "Neuer Eintrag"
        .cch = Len(.dwTypeData)
    End With
    retval = InsertMenuItem(hSysMenu, count + 1, 1, MenuItem)
 
End Sub