Hola haber si me puede ayudar alguien:
con el siguiente codigo saco en listbox con style checkbox una lista identica a la del firewall de Windows de mi ordenador.
Cita: Private Sub Command1_Click()
List1.Clear
Set OBJFIREWALL = CreateObject("HNetCfg.FwMgr")
Set objPolicy = OBJFIREWALL.LocalPolicy.CurrentProfile
Set colApplications = objPolicy.AuthorizedApplications
Set colServices = objPolicy.Services
Set colPorts = objPolicy.GloballyOpenPorts
For Each objApplication In colApplications
List1.AddItem objApplication.Name
Next
For Each objService In colServices
List1.AddItem objService.Name
Next
For Each objPort In colPorts
List1.AddItem objPort.Name
Next
End Sub
Hasta aqui todo bien, Despues con el siguiente codigo se puede saber si esta activado o no lo esta.
Por ejemplo: dentro de la coleccion colApplications
Cita: MsgBox objApplication.Enabled
Bueno mi pregunta es ¿como puedo hacer dentro del primer codigo que expongo, para que se queden solamente clickados los que estan activados osea TRUE, en la casilla del listbox con style checkbox?.