Function RunTrueImage(ByVal Arguments As String) As Integer
        Dim exitCode As Integer
        Dim p As New Process
        With p
            .StartInfo.FileName = TrueImagePath & "trueimagecmd.exe"
            .StartInfo.Arguments = Arguments
            .StartInfo.CreateNoWindow = True
            .StartInfo.UseShellExecute = False
            .StartInfo.RedirectStandardOutput = True
            .StartInfo.RedirectStandardError = True
        End With
 
        AddHandler p.OutputDataReceived, AddressOf TrueImageStdOutputHandler
        AddHandler p.ErrorDataReceived, AddressOf TrueImageErrOutputHandler
 
        p.Start()
        p.BeginErrorReadLine()
        p.BeginOutputReadLine()
        p.WaitForExit()
        exitCode = p.ExitCode
        p.Close()
        Return exitCode
End Function
 
Sub TrueImageStdOutputHandler(ByVal sendingProcess As Object, ByVal outLine As _
  DataReceivedEventArgs)
        WriteToWindow(outLine.Data)
End Sub
 
Sub TrueImageErrOutputHandler(ByVal sendingProcess As Object, ByVal outLine As _
  DataReceivedEventArgs)
        WriteToWindow(outLine.Data)
End Sub
 
Delegate Sub OneStringAsParam_Callback(ByVal txt As String)
 
Sub WriteToWindow(ByVal message As String)
        Dim callback As New OneStringAsParam_Callback(AddressOf _
          txtMain.AppendText)
        Me.Invoke(callback, New Object() {message & NewLine})
End Sub
 
Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) 
 
Handles BackgroundWorker1.DoWork
        RunTrueImage(e.Argument.ToString)
End Sub
 
Private Sub cmdButton1_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles cmdButton1.Click
       BackgroundWorker1.RunWorkerAsync(Arguments) 
End Sub