Как получить все значения ListView? - VB

Private Sub PolucheniyeZnachenui(ListViews As ListView, Text As TextBox, G1 As Integer)
Dim r As Integer
r = G1
Do While G1 <> 0
    L2 = ListViews.SelectedItem.Text
    L3 = ListViews.SelectedItem.SubItems(1)
     Set LF = ListViews.ListItems.Add(, , L2)
     Set LFS = LF.ListSubItems.Add(, , L3)
Text = Text & L2 & "  /  " & L3
    ListViews.ListItems.Remove 1
    G1 = G1 - 1
Loop
G1 = r
End Sub