Hola te pongo un ejemplo mejor dentro de un command1(boton)
para ejecutar la calculadora y el notepad de windows.
en el listbox depende del que selecciones lo ejecuta o si seleccionas los 2 hasta que no cierres el notepad no se quita la calculadora o al reves.
para el ejemplo añades el modulo anterior como te dije en el post anterior y en el formulario añades un boton command1 y un listbox con style=1 checkbox.
Cita: Private Sub Form_Load()
List1.AddItem "editortexto"
List1.AddItem "calculadora"
End Sub
Private Sub Command1_Click()
Dim retval As Variant
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Select Case List1.List(i)
Case "editortexto" 'LOS CASES TIENEN QUE IR ESCRITOS IGUAL QUE EN LA LISTA(additem)'
retval = ShellandWait(Environ("windir") + "\System32\notepad.exe")
Case "calculadora"
retval = ShellandWait(Environ("windir") + "\System32\calc.exe")
End Select
End If
Next
End Sub
salu2