estou com proplema

 

Quando uso o comando shell ele executa e vai para proxima linha de comandoso,

so que presisa processar a linha anterior para executar a procima.

Alguem poderia me ajudar

 

desde ja agradeço

 

helery saliba

 

desculpa-me pelo erro de portugues

 

Pausa Numa linha de comando

coloque a linha abaixo num modulo

 

 

depois é só chamar a função

 

SLEEP(X)

 

onde X é o numero de segundos que vc quer a sua aplicação pare.

 

Agora o código vai... hehehe.

 

Option Explicit

Private Const STILL_ACTIVE As Long = &H103
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

Private idProg As Long
Private hProg As Long
Private iExit As Long

 

Private Sub Form_Load()

   idProg = Shell("calc.exe", vbNormalFocus)
   hProg = OpenProcess(PROCESS_ALL_ACCESS, False, idProg)
   GetExitCodeProcess hProg, iExit

   ' Aguarda até que o programa seja encerrado
   Do While iExit = STILL_ACTIVE
      DoEvents
      GetExitCodeProcess hProg, iExit
   Loop
  
End Sub