VB ListView 一键全选 ，一键不全选代码

Private Sub Command2_Click()

   SelectAllItems

End Sub

Private Sub SelectAllItems()

    Dim i As Integer

    For i = 1 To ListView1.ListItems.Count

        ListView1.ListItems(i).Checked = True

    Next i

End Sub

Private Sub Command3_Click()

  DeselectAllItems

End Sub

Private Sub DeselectAllItems()

    Dim i As Integer

    For i = 1 To ListView1.ListItems.Count

        ListView1.ListItems(i).Checked = False

    Next i

End Sub