Does anyone know of a quicker way to select all the items in a multi-select
list box?

Example:

For lngX = 0 To Me!lstBox.listcount - 1
     Me!lstBox.Selected(lngX) = -1
Next lngX

The above code works, but not very well when the list is long (eg., > 500
items).  There has got to be a quicker way of doing this.

Thanks again.