как отметить выбранные в ходе оперции строки в чекбоксе

[илло]

К примеру есть Листбокс (с Чекбоксами) с 5 записями, я при помощи rnd выбирю случайные строки. Вопрос, как при этом отметить выбранные в ходе оперции строки в чекбоксе?

Спасибо

[Lenny]

Используй
Dim A As String
Dim X As Integer
For X = 0 To List1.ListCount
If List1.Selected(X) = True Then
A = List1.List(X)
End If
Next

[GSerg]

Код: Выделить всё

list1.selected(int(rnd*list1.listcount))=true