en un rato pongo mi programa para generar los numero de la loto...lo voy a poner en pdf...pa que lo entiendan y no simplemente hagan copy y paste(copie la frase de aki del foro )
Dim ListaProcesos As Object Dim ObjetoWMI As Object Dim ProcesoACerrar As Object Sub Listar()
Set ObjetoWMI = GetObject("winmgmts:")
If IsNull(ObjetoWMI) = False Then
Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")
'Recorremos toda las coleccion en lista de procesos y la añadimos al list For Each ProcesoACerrar In ListaProcesos List1.AddItem LCase$(ProcesoACerrar.Name) Next End If End Sub