i simple want when user click on the select all checkbox.all the checkboxes of list view should be filled with check sign.which is working fine.but problem is that when user click again on the checkbox .checksign still stay there.kindly let me know the idea any help would be highly appreciated.
Private Sub Check1_Click()
Private Function SelectAll() As Boolean
Dim Item As listitem
For Each Item In ListView1.ListItems
Item.Checked = True
SelectAll = True