新建From1(窗体),新建Command1(按钮CommandButton),ListView1(ListView)代码:
Private Sub Command1_Click()
Dim i&
For i = 1 To ListView1.ListItems.Count
Debug.Print ListView1.ListItems(i).Text & " " & ListView1.ListItems(i).SubItems(1)
Next
End Sub