Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ProgressBar1.Maximum = 150
ProgressBar1.Minimum = 0
For i As Integer = 0 To ProgressBar1.Maximum
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value > 50 Then
TextBox1.Text = i
Exit For
Else
TextBox1.Text = i
End If
Next
End Sub