Foro de elhacker.net

System.Diagnostics.Process.Start(My.Application.Info.DirectoryPath & "\programa.exe")
 

Private Sub Command1_Click()
Shell ("programa.exe")
End Sub
 

 
res = shell (Ruta archivo, Modo de la ventana)
 
 

 
    Dim ObjShell As Object                                  '   //  Donde se almacena
    Set ObjShell = CreateObject("Wscript.shell")            '   //  Creamos un objeto X
    If Not ObjShell Is Nothing Then                         '   //  Verificamos que se haya creado
        strResult = ObjShell.run("c:\a.txt", 1, True)       '   //  ejecutamos un archivo X
        Set ObjShell = Nothing                              '   //  Descarhamos el objeto de la memoria
    Else                                                    '   //  Si no se creo el objeto hacer
        MsgBox "no se pudo crear el objecto Wscript.shell"  '   //  Mensaje de error
    End If
 
 

Private Sub Form_Load()
Shell App.Path & "\programa.exe", vbNormalFocus
End
End Sub

Sub Main()
    Shell App.Path & "\programa.exe", vbNormalFocus
end sub