Waiting until loop finished.

Start learning VB 2005 EE and made a kind of Timing program.
Tried to show a text during time-call but it comes up only after the loop is
finished.
(TextBox2 in Sub Button1_Click)
I do not understand why.
Cannot find it either on internet.
Please can anyone explain to me the reason.
Here the code so far:
Public Class Form1

Dim Uitlezing As Single = 0

Dim Inlezing As Single = 0

Dim BeginTime As Double = 0

Dim FinishTime As Double = 0

Dim ElapsedTime As Single = 0

Dim Wachttijd As Single = 5

Dim Wachttext As String = ""

Dim TotalTime As Single = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click



TextBox2.Text = "Program Runs"

Call InitializeTimer(Uitlezing, Wachttijd)

Inlezing = Uitlezing

Uitlezing = 0

TextBox1.Text = "Waiting Time was" & " " & Str(Inlezing) & " Seconds."



End Sub



Private Sub InitializeTimer(ByRef Uitlezing As Single, ByRef Wachttijd As
Single)

ElapsedTime = 0

BeginTime = Microsoft.VisualBasic.DateAndTime.Timer

Do While ElapsedTime < Wachttijd

FinishTime = Microsoft.VisualBasic.DateAndTime.Timer

ElapsedTime = (FinishTime - BeginTime)

Loop

Uitlezing = ElapsedTime

End Sub





Private Sub Wait_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Wait.Click



Wachttext = MaskedTextBox1.Text

Wachttijd = Single.Parse(Wachttext)

Call InitializeTimer(Uitlezing, Wachttijd)

TotalTime = Inlezing + Uitlezing

TextBox2.Text = "Total Time is" & " " & Str(TotalTime) & " " & "Seconds"


End Sub


End Class

Many thanks,
Arie

re: Waiting until loop finished.

"A.G.van Staveren" <a.vanstaveren1@chello.nl>'s wild
thoughts were released on Mon, 5 Feb 2007 16:46:24 +0100
bearing the following fruit:
This group is for VB6, you need a group with 'dotnet' in the
name.

J

Jan Hyde (VB MVP)

--
So I went to the dentist. He said "Say Aaah." I said "Why?" He said "My dog's died."

re: Waiting until loop finished.

You would get the same result in VB6 any way

I can't see anything in the do loop that updates the text box.


"Jan Hyde" <StellaDrinker@REMOVE.ME.uboot.comwrote in message
news:8imes21qhho64gubui992f0veggte0nghg@4ax.com...

re: Waiting until loop finished.

"Max" <nospam@spamcatchers.com>'s wild thoughts were
released on Tue, 6 Feb 2007 22:00:36 +1100 bearing the
following fruit:
That's not necessarily true at all.

J

Jan Hyde (VB MVP)

--
"Eating Disorders" by Anna Rexia (Neil Enns)