Listbox with "Select All"

[Jaymond Flurrie]

I would need a simple list box (say, three items), and under it a "select all" checkbox and when this is clicked all three items are selected and when this checkbox is clicked again, all selections are removed. Otherwise this is easy, but I want it to be clear for user, so when the checkbox is true and user selects something, this check has to disappear. I have tried pretty much everything, but can't seem to get it to work, that change-event of listbox prevents me from getting this done.

 

[Norie]

Here's a slightly different version that uses the checkbox value slightly differently.

Private Sub CheckBox1_Change()
Dim N As Long

    For N = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(N) = CheckBox1.Value
    Next N

End Sub