Ejecutar lista de un Listbox

[A.H.H]

Hola de nuevo.
creo que no viste bien el ejemplo.

El ejemplo ejecuta solo los programas que tu elijas de la lista y espera a que termine uno para ir al siguiente clickado(elegido) por eso te dije que pusieras el listbox en style=2 checkbox.

te puse solo 2 ejemplos en la lista el notepad y la calculadora de windows
si te fijas bien y eliges los 2 programas para ejecutar, HASTA QUE NO CIERRES EL NOTEPAD, NO EJECUTARA LA CALCULADORA.
Claro el ejemplo se ve mejor con una lista mas larga de programas.


si le pones mas programas a ejecutar al select case, veras que depende de los que eligas los EJECUTARA Y ESPERARA A QUE TERMINE UNO PARA SALTAR Y EMPEZAR A EJECUTAR EL OTRO.

REVISALO......

abre un proyecto para el ejemplo:
-agregas un modulo y dentro copias el codigo del modulo
-al formulario le colocas un listbox con style checkbox
-y un boton command1 para ejecutar
y dentro del formulario copias y pegas este codigo para probar el ejemplo:

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