Dim lv As New ListView
 
lv.Columns.Add("Text")
For i As Integer = 0 To 4
   lv.Columns.Add("Subitem_" & CStr(i))
Next i
 
lv.View = System.Windows.Forms.View.Details
 
Dim lvi As ListViewItem = lv.Items.Add("Zeile1")
lvi.SubItems.AddRange({"", "", "", "Zeile1, Subitem3"})
 
lvi = lv.Items.Add("Zeile2")
lvi.SubItems.AddRange({"", "", "Zeile2, Subitem2"})