Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
 
        With ListView1 
            .Columns.Add("ww.", 30, HorizontalAlignment.Left)
            .Columns.Add("ee", 280, HorizontalAlignment.Left)
            .Columns.Add("rr", 50, HorizontalAlignment.Left)
            .View = View.Details
            .LabelEdit = False
        End With
 
        Dim lvItem As New ListViewItem(1)
        lvItem.SubItems.Add("r")
        lvItem.SubItems.Add("w")
        lvItem.SubItems.Add("p")
        ListView1.Items.Add(lvItem)        'Reihe einfügen
 
        Dim lvItem2 As New ListViewItem(2)
        lvItem2.SubItems.Add("4")
        lvItem2.SubItems.Add("5")
        lvItem2.SubItems.Add("7")
        ListView1.Items.Add(lvItem2)        'Reihe einfügen
 
    End Sub
 
    Private Sub ListView1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles ListView1.Click
        MsgBox("Click")
    End Sub
 
    Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles ListView1.DoubleClick
        MsgBox("DoubleClick")
    End Sub

 Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        MsgBox("Click")
    End Sub