请教一个简单的问题，关于ListView
我怎么样用代码探查在这个ListView里，我选择了几个复选框啊
[解决办法]
Private Sub Command1_Click()
Dim ti As MSComctlLib.ListItem
Dim SelNum As Long
For Each ti In LV.ListItems
If ti.Checked Then
SelNum = SelNum + 1
End If
Next
MsgBox "选择了" & SelNum & "条项目"
End Sub
