Dim info As System.Diagnostics.ProcessStartInfo info =New System.Diagnostics.ProcessStartInfo() info.FileName = EXE_NAME info.Arguments = arg1 &""& arg2 info.WorkingDirectory = Application.StartupPath Dim Proc As System.Diagnostics.Process Try Proc = System.Diagnostics.Process.Start(info) Proc.WaitForExit() If Proc.HasExited =FalseThen Proc.Kill() EndIf Catch ex As System.ComponentModel.Win32Exception Return EndTry