'Dim retval 'retval = Shell("C:\Program Files\Outlook Express\msimn.exe", 1) Dim objExecuteFile As New System.Diagnostics.ProcessStartInfo Dim objExecute As New System.Diagnostics.Process objExecuteFile.FileName = "abc.bat" objExecuteFile.Arguments = "1 2 3
4" objExecuteFile.UseShellExecute = False objExecuteFile.CreateNoWindow = True objExecuteFile.RedirectStandardOutput = True objExecuteFile.RedirectStandardError = True objExecute.StartInfo = objExecuteFile objExecute.Start() objExecute.WaitForExit() Dim ob
As Object = objExecute.StandardOutput.ReadToEnd