Could not get the standardoutput from the process simultaneously when the process is executing.

[BasicQ]

I am running an executable from my aspx page with the click of a
button. A date is passed as an argument. I am able to get the
standardoutput from the Process(Exe) into the label of my page after
the process has completed executing. My problem is I need to get the
output in the label simultaneously when the EXE is running, not after
it has completed executing. Just like when I run the Exe in the cmd
prompt. In my code I am opening two threads for standardoutput and
StandardError. All the standardoutput is being buffered in a
stringbuilder and then being displayed in the label. Is there any
command that I can display the standard ouput in a label after reading
a line from the string builder? Is this the correct way to approach?
Any help is appreciated. Below is my code.

Public Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

Dim dt As Date
program.StartIn fo.FileName = "Stage.exe"
program.StartIn fo.Arguments = dt
program.StartIn fo.WindowStyle = ProcessWindowSt yle.hidden
program.StartIn fo.UseShellExec ute = False
program.StartIn fo.RedirectStan dardInput = True
program.StartIn fo.RedirectStan dardOutput = True
program.StartIn fo.RedirectStan dardError = True
program.Start()
srop = program.Standar dOutput
sin = program.Standar dInput
Dim oOutputThread As Thread = New Thread(AddressO f
ReadStdOut)
Dim oErrorThread As Thread = New Thread(AddressO f
ReadStdError)
With oOutputThread
.Name = "StandardOutput "
.Priority = ThreadPriority. Highest
.Start()
.Join()
End With

With oErrorThread
.Name = "StandardEr ror"
.Priority = ThreadPriority. Normal
.Start()
.Join()
End With

End Sub

Private Sub ReadStdOut()
srop = program.Standar dOutput
sin = program.Standar dInput
Dim sb As New System.Text.Str ingBuilder("")

Dim input As String = srop.Read
Do Until input = -1
If input = 13 Then
sb.Append("<br> ")
End If
sb.Append(ChrW( input))
input = srop.Read
Loop
Label1.Text += sb.ToString
End Sub

Private Sub ReadStdError()

Dim str As System.IO.Strea mReader = program.Standar dError
Dim sb As New System.Text.Str ingBuilder("")
Dim input As Integer = str.Read
Do Until input = -1
If input = 13 Then
sb.Append("<br> ")
End If
sb.Append(ChrW( input))
input = str.Read
Loop
Label1.Text += sb.ToString
End Sub

Thanks,
Atluri.