Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With ListBox1
            .Items.Add("blah")
            .Items.Add("blah1")
            .Items.Add("blah2")
            .Items.Add("blah3")
            .Items.Add("blah4")
        End With
    End Sub
    Private Sub ListBox1_MouseDown(sender As Object, e As MouseEventArgs) _
      Handles ListBox1.MouseDown
 
        If e.Button = MouseButtons.Left Then
            Label1.Text = ListBox1.SelectedItem.ToString
        End If
 
        If e.Button = MouseButtons.Right Then
 
            If ListBox1.SelectedItem IsNot Nothing Then
                Dim NewText As String = InputBox("Wie soll das Objekt " & _
                  ListBox1.SelectedItem.ToString & " neu heißen?")
                If NewText <> "" Then
                    ListBox1.Items(ListBox1.SelectedIndex) = NewText
                    Label1.Text = NewText
                End If
            Else
                MessageBox.Show("Du musst erst einen Eintrag auswählen!", _
                  "Hinweis:")
            End If
        End If
    End Sub
 
End Class

EALA FREYA FRESENA