Firewall Windows Coleccion

[erbuson]

Hola:

Para que veas como puedes hacerlo te he hecho un pequeño ejemplo.

Private Sub Command1_Click()
Dim c As Integer
For c = 1 To 5
List1.AddItem c
List1.Selected(List1.ListCount - 1) = True
Next
End Sub

Por tanto es de suponer que en tu código puedes hacer algo así:

For Each objApplication In colApplications
List1.AddItem objApplication.Name
List1.Selected(List1.ListCount - 1) = objApplication.Enabled
Next

Pruebalo y comenta si funcionó.

Saludos