Visual Basic - ListBox

Hola, tengo un listbox con style Chekbox , como puedo por codigo chequiar el listbox de acuerdo a una serie de condiciones ejemplo.
si al recorrer el listbox encuentro la palabra Microcolsa este de debera de colocar en chequeado.

Gracias,

tenes que usar la propiedad selected

Private Sub Form_Load()

List1.AddItem "item1"
List1.AddItem "item1 "
List1.AddItem "Microcolsa"
List1.AddItem "item1"

Dim i As Integer

For i = 0 To List1.ListCount - 1
If List1.List(i) = "Microcolsa" Then List1.Selected(i) = True

Next
End Sub