'El ejemplo necesita:
'1 ListView y 2 ImageList(ImageList1 y ImageList2) con
'3 imágenes cada uno.

'Además el ListView necesita la propiedad View=3 y
'tener 4 columnas.

Option Explicit

Private Sub Form_Load()
Dim i As Integer
Dim x As ListItem

With ListView1
   
    Set .Icons = ImageList1
    Set .SmallIcons = ImageList2
       
        For i = 1 To 3
            .ListItems.Add , , "Item " & CStr(i), i, i
        Next i

    Set x = ListView1.ListItems(1)
        For i = 1 To 3
        x.ListSubItems.Add , , "SubItem " & CStr(i), i
    Next i



End With



End Sub