Private Sub ListDemo()
 
Dim rows%, columns%
rows = 5: columns = 3 'Anzahl der Zeilen und Spalten (=Arraygrenzen)
 
'Array erstellen und mit Testdaten füllen
ReDim arr(1 To rows, 1 To columns) As String
Dim i, k As Integer
For i = 1 To rows
   For k = 1 To columns
      arr(i, k) = String(i, "a") & String(k, "b")
   Next k
Next i
 
 
ListView1.View = lvwReport
 
'Spaltenköpfe erstellen
ListView1.ColumnHeaders.Add , , "Zeile", 2000
For i = 1 To columns
   ListView1.ColumnHeaders.Add , , "SP" & CStr(i), 2000
Next i
 
'Array-Elemente in Listview1 eintragen
Dim lvi As ListItem
For i = 1 To rows
   Set lvi = ListView1.ListItems.Add(, , "Zeile" & CStr(i))
   For k = 1 To columns
      lvi.ListSubItems.Add , , arr(i, k)
   Next k
Next i
 
End Sub