böyle bir kod var:

Option Explicit

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = -1&

Public Sub RunUntilFinished(ByVal sApp As String)
    Dim lProcID As Long
    Dim hProc As Long

    ' Start the App
    On Error GoTo ErrHndlr
    lProcID = Shell(sApp, vbNormalFocus)
    On Error GoTo 0

    DoEvents

    hProc = OpenProcess(SYNCHRONIZE, 0, lProcID)
    If hProc <> 0 Then
      WaitForSingleObject hProc, INFINITE
      CloseHandle hProc
    End If
    Exit Sub

ErrHndlr:
    MsgBox "Error starting App:" & vbCrLf & _
       "App: " & sApp & vbCrLf & _
       "Err Desc: " & Err.Description
    Err.Clear
End Sub

Private Sub Command1_Click()
RunUntilFinished "notepad.exe"
MsgBox "oldu"
End Sub

*******************************************************************

veya bir değişik versiyonu

******************************************************************
   Const SYNCHRONIZE = &H100000

   Const INFINITE = &HFFFF

   Const WAIT_OBJECT_0 = 0

   Const WAIT_TIMEOUT = &H102

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

   Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

   Private Declare Function CloseHandle Lib "kernel32" ( _
    ByVal hObject As Long) As Long

Private Sub Command1_Click()
Dim lPid As Long
   Dim lHnd As Long
   Dim lRet As Long



   lPid = Shell("notepad.exe", vbNormalFocus)
Me.Hide
   If lPid <> 0 Then


    lHnd = OpenProcess(SYNCHRONIZE, 0, lPid)
   

    If lHnd <> 0 Then lRet = WaitForSingleObject(lHnd, INFINITE)
    CloseHandle (lHnd)
    End If

   Me.Show
   
End Sub


*********************************************************************

ben bu sorunu çözmek için AutoIT script kullanıyorum

tabi ben projeniz hakkında fikir yürütemediğim için sorunu tam anlayamadım. virtualdub ı addaudio komutu ile çalıştırmak istiyorsunuz. exeyi ek komutla çalıştıran farklı fonksiyonlar vardı bir de onları inceleyelim