Private Sub Form_Load()
ListView1.ColumnHeaders.Add , , "Item", 1500
ListView1.ColumnHeaders.Add , , "Value", ListView1.Width - 1900
ListView1.FullRowSelect = True
ListView1.IconSize = 16
ListView1.Icons.LoadBitmap "c:\a\a.ico", 1, xtpImageNormal
For i = 1 To 10
Set a = ListView1.ListItems.Add(, , , 1)
With a
.Text() = "hh"
.SubItems(1) = "hola"
End With
Next i
End Sub