Private Sub Form_Load()
  Dim oItem As ListItem
  Dim i As Long
 
  With ListView1
    .View = lvwReport
    .FullRowSelect = True
 
    .ColumnHeaders.Add , , "Spalte1", 0
    .ColumnHeaders.Add , , "Spalte2"
    .ColumnHeaders.Add , , "Spalte3"
 
    For i = 1 To 100
      Set oItem = .ListItems.Add
      oItem.SubItems(1) = "Text Spalte2"
      oItem.SubItems(2) = "Text Spalte2"
    Next i
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de