新建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