Kør forskellige programmer som var det i "kør"

hey jeg skal have fundet ud af hvordan det er at jeg gør sådan at jeg kan starte et andet program fra mit eget, som havde jeg skreven det i kør.

programmet fungere ved at der er en liste med programmer som f.eks. "CMD" "regedit" "calc.exe"

det som jeg har brugt ind til videre er:

Private Sub cmdruncmd_Click()
If Check1.Value = vbChecked Then
Dim strFile As String
Dim strPath As String
strFile = "C:\\WINDOWS\\system32\\cmd.exe"
strPath = Left$(strFile, InStrRev(strFile, "\\"))
Call Shellexecute.Shellexecute(Me.hwnd, "Open", strFile, vbNullString, strPath, SW_SHOWMAXIMIZED)
End If
If Check2.Value = vbChecked Then
strFile = "C:\\WINDOWS\\system32\\calc.exe"
strPath = Left$(strFile, InStrRev(strFile, "\\"))
Call Shellexecute.Shellexecute(Me.hwnd, "Open", strFile, vbNullString, strPath, SW_SHOWMAXIMIZED)
End If
If Check3.Value = vbChecked Then
strFile = "C:\\WINDOWS\\regedit.exe"
strPath = Left$(strFile, InStrRev(strFile, "\\"))
Call Shellexecute.Shellexecute(Me.hwnd, "Open", strFile, vbNullString, strPath, SW_SHOWMAXIMIZED)
End If
End Sub

men det virker kun for calc.exe
det er som om de andre bare åbner og lukker med det samme igen!

help