Firewall Windows Coleccion

[erbuson]

Si quieres ordenarlo, puedes hacer lo siguiente:

Pones la propiedad Sorted en True como ya sabes y creas la siguiente rutina:

Código vb:

Private Sub EstaActivado(Name As String)
  Dim i As Integer
  For i = 0 To List1.ListCount - 1
    If List1.List(i) = Name Then
      List1.Selected(i) = True
      Exit Sub
    End If
  Next
End Sub
 

después cambias el código de esta manera:

Código vb:

For Each objApplication In colApplications
  List1.AddItem objApplication.Name
  If objApplication.Enabled Then EstaActivado objApplication.Name
Next
 

Pruébalo y si no me he equivocado escribiendo, debería funcionar.

Saludos