VB6 遍历ListView1控件中的内容 ListView1.ListItems.Count 和 ListView1.ListItems(i).SubItems(1)开始新建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