Private Sub AxVSFlex7L_MouseDownEvent(ByVal sender As Object, ByVal e As _
      AxMSFlexGridLib.DMSFlexGridEvents_MouseDownEvent) Handles _
      AxVSFlex7L.MouseDownEvent
        Dim ctmKontaktÜbertragen As New MenuItem("ctmKontaktÜbertragen")
 
        ctmKontakt.MenuItems.Clear()
 
        ctmKontaktÜbertragen.MenuItems.Add("TeWERst1")
        ctmKontaktÜbertragen.MenuItems.Add("asg")
 
        ctmKontakt.MenuItems.Add(ctmKontaktÜbertragen)
 
        ctmListe.Show(Me, New System.Drawing.Point(10, 10))
    End Sub

Meine Homepage: www.dartrax.de