You meant "= (nCnt%2)==0" at the end?
Can you explain what it means?

>Look in Selected property, I think You can set it programaticly (read/write at run time)
>With little change of HELP example:
>
>

>   FOR nCnt = 1 TO ThisForm.lstListBox1.ListCount
>      ThisForm.lstListBox1.Selected(nCnt) = (nCht%2)==0
>   ENDFOR
>

>
>(Never used or tested)
>HTH