codice:
Private Sub CheckBox1_Click()
For I = 1 To ListBox1.ListCount
       ListBox1.Selected(I - 1) = True
Next I
End Sub