multi-select list box

[Guest]

I have a multi-select list box on one of my forms.

What i would like to have is a 'select all' button which will automatically
select everything in the box.

Can any suggest a way of doing it?

Thank you

Nick

 

[Guest]

In the click event of the button, put the following code assuming your
listbox is called lstTest

Dim i As Integer

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

 

[Guest]

Perfect!

Thank you very much.

Nick

In the click event of the button, put the following code assuming your
listbox is called lstTest

Dim i As Integer

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