[VB6] Problemi di stampa ListView

[oregon]

Non esiste il ListSubItems(0)

For i = 1 To LvSearch.ListItems.Count
    Printer.Print Space(6) & "Cognome : " & LvSearch.ListItems(i).Text
    Printer.Print Space(6) & "Nome : " & LvSearch.ListItems(i).ListSubItems(1).Text
    Printer.Print Space(6) & "Sesso : " & LvSearch.ListItems(i).ListSubItems(2).Text
    Printer.Print vbNewLine
Next i
Printer.EndDoc