vb listbox 多项选中问题

Question

vb listbox 多项选中问题for i = 0 to 30
list1.additem i
next我想选中list1列表中的第3、8、15、19、21、28、30项请问如何实现？

Answer 1

Private Sub Form_Load()
For i = 0 To 30
List1.AddItem i
Next
'List1.MultiSelect = 2'在属性框里搞好
List1.Selected(2) = True
List1.Selected(7) = True
List1.Selected(14) = True
List1.Selected(19) = True
List1.Selected(20) = True
List1.Selected(27) = True
List1.Selected(29) = True
End Sub

Answer 2

List1.Selected(i) = True