Toggle button to select all list items (1 Viewer)

[Everton]

Hi,

I am trying to create a toggle button that will select/de-select all items in a list box. At the moment I have:

Private Sub selectall_Click()

Select Case selectall.Value
Case Yes
{code to select all}
Case No
{code to de-select all}
End select

End Sub

The question is, can anyone tell me what I should put inside the {} ?

Thanks,
Paul.

 

[Rich]

Article ID: Q128881 should do what you want.
HTH