Mulitple Selections in a list box

[Jengo]

How do you, through code, make a list box select more than one selection, when the mulitselect function is on. For example:

if tmp = Yes then
'select that one
if tmp1 = Yes then
'keep the previous selected one, and select the new one to.
????? Any help?

 

[ingvar68]

For i = 0 To [LIST_NAME].Listcount - 1
if [LIST_NAME].Selected(i) Then
'selected
...
End If
Next

glad to answer