Un esempio molto semplice potrebbe essere questo:
codice:
Const Colonne = 3
Const Righe = 10
Dim Cont1 As Integer
Dim Cont2 As Integer

LV.View = lvwReport
For Cont1 = 1 To Colonne
  LV.ColumnHeaders.Add Cont1, , "Colonna " & CStr(Cont1)
Next Cont1
For Cont1 = 1 To Righe
  LV.ListItems.Add Cont1, , "Row " & Cont1 & " / Col " & CStr(Cont2 + 1)
  For Cont2 = 1 To Colonne - 1
    LV.ListItems.Item(Cont1).SubItems(Cont2) = "Row " & Cont1 & " / Col " & CStr(Cont2 + 1)
  Next Cont2
Next Cont1
Ciao