"Select All" Button for a multi select listbox?

[chanson]

Basically what I am trying to do is setup a listbox that allows multi select (done) with a button, "Select All" that would select every record in the listbox (not done). Has anyone had any experience with something like this?

Thanks in advance for the help!

Caleb

 

[Jack Cowley]

Dim i As Integer

For i = 0 To ListBoxNameGoesHere.ListCount - 1
Me.ListBoxNameGoesHere.Selected(i) = True
Next i

hth,
Jack

 

[chanson]

Thanks Jack!

 

[Jack Cowley]

You are welcome. Good luck with your project.

Jack