Prøv lige det her og se om det er noget du kan bruge
----------------------------------------------------
Private Sub Form_Load()
With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "Jens"
.ColumnHeaders.Add , , "Lotte"
.ColumnHeaders.Add , , "Allan"
.ColumnHeaders.Add , , "Per"
.ColumnHeaders.Add , , "Dorthe"
.ColumnHeaders.Add , , "Michael"
.ColumnHeaders.Add , , "Michella"
.ColumnHeaders.Add , , "Michela"
.ColumnHeaders.Add , , "Søren Pedersen"
.ColumnHeaders.Add , , "Peter"
.View = lvwReport
.Sorted = False
End With
End Sub
---------------------------------------------------
Du skal bruge 1 stk. ListView som skal hedde ListView1
ListView finder du under
componets... Microsoft windows common controls 6.0 (SP6)
Håber du kan bruge det
Indlæg senest redigeret d. 01.02.2007 23:52 af Bruger #10268