Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("Hallo")
        ListBox1.Items.Add("test")
        Dim mi_kopieren As New MenuItem("Löschen")
        Dim ctxm As New ContextMenu
        ctxm.MenuItems.Add(mi_kopieren)
        ListBox1.ContextMenu = ctxm
        AddHandler mi_kopieren.Click, AddressOf kopieren_click
    End Sub
 
 Private Sub kopieren_click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs)
        Select Case MsgBox("Wollen Sie den Eintrag " + ListBox1.SelectedItem + _
        " Wirklich löschen?", vbQuestion Or vbOKCancel, "Datensatz löschen")
            Case vbOK
                MsgBox(ListBox1.SelectedItem)
            Case vbCancel
                MsgBox("nicht löschen")
        End Select
 
    End Sub