[just.coder]

كود :

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