Private Sub Form_Load() Dim itm As ListItem With ListView1 .View = lvwReport .ColumnHeaders.Add , , "Last Name", .Width / 3 .ColumnHeaders.Add , , "First Name", .Width / 3 Set itm = .ListItems.Add(, "Doe", "Doe") itm.SubItems(1) = "John" End With End SubFor images:
Dim i As Integer ListView1.Arrange = lvwAutoLeft ImageList1.ListImages.Add , , LoadPicture("c:\windows\cars.bmp") Set ListView1.Icons = ImageList1 Set ListView1.SmallIcons = ImageList1 For i = 1 To 20 ListView1.ListItems.Add , , "Item" & i, 1, 1 Next ListView1.BorderStyle = 0Both samples extracted from MSDN support online.