Public Class Form1
 
    ' alle benötigten Deklarationen
    Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, _
      ByVal bRevert As Integer) As Integer
    Private Declare Function InsertMenuItem Lib "user32.dll" Alias _
    "InsertMenuItemA" (ByVal hMenu As Integer, ByVal uItem As Integer, ByVal _
    fByPosition As Integer, ByRef lpmii As MENUITEMINFO) As Integer
 
    Private Structure MENUITEMINFO
        Dim cbSize As Integer
        Dim fMask As Integer
        Dim fType As Integer
        Dim fState As Integer
        Dim wID As Integer
        Dim hSubMenu As Integer
        Dim hbmpChecked As Integer
        Dim hbmpUnchecked As Integer
        Dim dwItemData As Integer
        Dim dwTypeData As String
        Dim cch As Integer
    End Structure
 
    'versteckt alle Einträge (außer 'Schließen') im Taskbar-Menü
    Public Sub ChangeTaskbarMenu()
        ' MENUITEMINFO fMask-Konstanten
        Const MIIM_ID = &H2 ' benutzt die wID-Option
        Const MIIM_TYPE = &H10 ' benutzt die dwTypeData-Option
        Const MFS_DEFAULT = &H1000 ' Menüeintrag ist die Standard-Auswahl
        Const MFT_STRING = &H0 ' der Menüeintrag wird mit einem String gefüllt,  
 
        Dim Menüeintrag As MENUITEMINFO
        Menüeintrag.dwTypeData = "&XXX"
        Menüeintrag.cch = Len(Trim$(Menüeintrag.dwTypeData))
        Menüeintrag.fMask = MIIM_TYPE Or MIIM_ID
        Menüeintrag.fState = MFS_DEFAULT
        Menüeintrag.fType = MFT_STRING
        Menüeintrag.wID = 0
        Menüeintrag.cbSize = Len(Menüeintrag)
 
        InsertMenuItem(GetSystemMenu(Me.Handle, False), 0&, 0&, Menüeintrag)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ChangeTaskbarMenu()
    End Sub
 
End Class