[VBA Excel] Seleziona/deseleziona tutto

[Lelec]

Ciao ragazzi potreste darmi qualche dritta per favore ....
Ho una userform con una listBox, vorrei inserirvi una casella di controllo (sin qui tutto ok ... ) e vorrei che fleggando il controllo si evidenziasse tutto il contenuto della listBox.


Grazie in anticipo.

[patel]

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

[Lelec]

Grazie patel!