Private CM As ContextMenu = New ContextMenu
 
        With CM.MenuItems
            .Add(New MenuItem("Zeile löschen", New EventHandler(AddressOf _
              KontextMenü1)))
            .Add(New MenuItem("Ausschneiden", New EventHandler(AddressOf _
            KontextMenü2)))
            .Add(New MenuItem("Kopieren", New EventHandler(AddressOf _
            KontextMenü3)))
            .Add(New MenuItem("Einfügen", New EventHandler(AddressOf _
            KontextMenü4)))
            .Add(New MenuItem("leere Zeile einfügen", New EventHandler( _
            AddressOf KontextMenü5)))
        End With
 
        CM.MenuItems.Item(3).Enabled = False

Hänk

(Wer früh aufsteht hat mehr vom Tag)