Chamando um EXE a partir do seu VB

Que tal chamar um outro aplicativo a partir do seu programa VB . Quem sabe um dia você não vai precisar fazer isto !! . Quando precisar é só usar a receita abaixo:

  1. Inicie um novo projeto no VB
  2. No formulário padrão inclua uma caixa de texto e um botão de comando
  3. A seguir insira o código abaixo no seu projeto.
Private Sub Command1_Click()
     LoadEXE (Text1.Text)
End Sub

Sub LoadEXE(Dir As String)
 Dim x As Integer
 Dim nofreeze As Integer

  On Error GoTo erro

   x = Shell(Dir, 1)
   nofreeze = DoEvents()
   Exit Sub

erro:

'mensagem de erro personalizada
 If err.Number = 6 Then Exit Sub
   MsgBox "O aplicativo não foi localizado !!! Verifique sua localização ...", vbExclamation
   'Se preferir use a mensagem de erro padrao
   'MsgBox "Error:" & vbCrLf & err.Description & vbCrLf & err.Number, vbExclamation

End Sub

Execute o projeto e informe o nome do aplicativo que deseja executar  com sua localização ; a seguir clique no botão de comando ,  você deverá obter o seguinte:

Sem mais declarações...  Até mais...