Select All items in a listbox 1

[tekvb1977]

How could I select all items in a list box automatically by using the "Select All" command button.

Thanks in advance

J

 

[RoyVidar]

Is there a select all button?

I think you'll need some code, but since listbox controls are really forms stuff, forum702 is probabley the more correct forum.

Anyway, somthing like this perhaps?
[tt]
dim lngCount as long
dim lst as listbox

set lst = me.controls("lstNameOfYourListBoxControl")
for lngCount = 0 to lst.listcount - 1
lst.selected(lngCount) = true
next lngCount
set lst = nothing[/tt]

Roy-Vidar