deselect items in listbox

[TjS]

Hellow,

I searched for a proper thread which could help me, but unfortunately the thread i think it could help me no longer exists.

i'm searching for a way to deselect items in a listbox (or deselect all items at once by pushing a button); cannot find a way to do this.

Could anyone please advise me how to?

Thanks in advance.

 

[rainman89]

does refreshing or requerying the listbox work?

 

[wh00t]

Dim CtlSource As Control
Dim IntCurrentRow As Integer

Set CtlSource = ListName
For IntCurrentRow = 0 To CtlSource.ListCount - 1
    CtlSource.Selected(IntCurrentRow) = False
Next IntCurrentRow

 

[TjS]

thanks!

That was quick!

Thanks! I used the same method to make a select all button.