Hi,

Livvo is asking if I can get a multi-select listbox to select all items in
the box at the click on a button on the form.

Anybody know how to do this?

Ta

Private Sub CommandButton1_Click()
Dim i as integer
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = True
Next i
End Sub


--
Hope that helps.

Vergel Adriano


"Neily" wrote:

Hi,

Livvo is asking if I can get a multi-select listbox to select all items in
the box at the click on a button on the form.

Anybody know how to do this?

Ta

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = True
Next i
End Sub

--
Hope that helps.

Vergel Adriano


"Neily" wrote:

Hi,

Livvo is asking if I can get a multi-select listbox to select all items in
the box at the click on a button on the form.

Anybody know how to do this?

Ta

Brilliant, Ta.

"Vergel Adriano" wrote:

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = True
Next i
End Sub

--
Hope that helps.

Vergel Adriano


"Neily" wrote:

Hi,

Livvo is asking if I can get a multi-select listbox to select all items in
the box at the click on a button on the form.

Anybody know how to do this?

Ta