Private Sub Form_Load()
With ListView1
    'ColumnHeaders Erstellen
    .ColumnHeaders.Add "1", "Key1", "Name", 1000
    .ColumnHeaders.Add "2", "Key2", "Alter", 1000
    .ColumnHeaders.Add "3", "Key3", "ICQ", 1000
 
    'ColumnHeaders Sichtbar machen
    .View = lvwReport
 
    'GridLines Aktivieren
    .GridLines = True
 
    'Einen Eintrag Hinzufügen
    .ListItems.Add "1", "a", "Holger"
    .ListItems.Item(1).SubItems(1) = "16"
    .ListItems.Item(1).SubItems(2) = "173561397"
 
    'Zweiter Eintrag
    .ListItems.Add "2", "b", "TEST"
    .ListItems.Item(2).SubItems(1) = "40"
    .ListItems.Item(2).SubItems(2) = "000000000"
    'usw.
 
    'Sonstige Einstellungen
    .FullRowSelect = True
    .BackColor = &H80000018
    .Left = 0
    .Top = 0
    .Width = 3100
    Me.Width = .Width + 125
    Me.Height = .Height + 400
End With
End Sub

____________________________________
Internet-Relay-Messenger IRM.
http://forum.spiel-wiese.net Neuste Version ist die Beta 2.3