listbox

[Romario]

Weet iemand hoe ik het het makkelijkst voor elkaar kriig om een "Select all" knop te maken die alle waarden in een multi-listbox selecteerd?

 

[Bartuls]

Is niet zo moeilijk:

Dim intCurrentRow as Integer
For intCurrentRow = 0 To me.[lstJouwListbox].ListCount - 1
me.[lstJouwListbox].Selected(intCurrentRow) = True
Next intCurrentRow