Dim IndiceFila As Integer
Dim IndiceColumna As Integer
Dim elemento as integer
With ListView1
For IndiceFila = 0 To .Items.Count - 1
For IndiceColumna = 0 To .Columns.Count - 1
elemento = .Items(IndiceFila).SubItems(IndiceColumna).Text
Next
Next
End With