如题，请高手帮忙

供参考
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If Item.Selected = True Then
    For j = 1 To ListView1.ListItems.Count              '这个for循环主要是为了能够实现多选时，复选框也相应选中。
        If ListView1.ListItems(j).Selected = True Then
            ListView1.ListItems(j).Checked = True
        Else
            ListView1.ListItems(j).Checked = False
        End If
    Next
End If
End Sub

谢谢分享！！