在vb中如何在点击checkbox时让listview中的checkboxes全部有对勾，求高手指点？？？

如图

我想在点击检查框checkbox时，listview中的checkboxes全部出现对勾，在点击全部消失对勾，应该怎么做呀？求高手指导呀

‍

Private Sub Check1_Click()
    If Check1.Value = vbChecked Then
        For i = 1 To ListView1.ListItems.Count
             ListView1.ListItems(i).Checked = True
        Next
    Else
        For i = 1 To ListView1.ListItems.Count
             ListView1.ListItems(i).Checked = False
        Next
    End If
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/277q8sqpq.html