lvw.View = View.Details
'Spalten erstellen
lvw.Columns.Add("Hauptspalte", 150)
lvw.Columns.Add("Leere mich", 150)
'Zeilen erstellen und Spalten füllen
For i As Integer = 1 To 10
   Dim lvi As ListViewItem =
       New ListViewItem With {.Text = "Row " & i.ToString}
   lvi.SubItems.Add("Sub " & i.ToString)
   lvw.Items.Add(lvi)
Next i
 
'Eine Spalte "leeren"?
For i As Integer = 0 To lvw.Items.Count - 1
    lvw.Items(i).SubItems(1).Text = ""
Next i