VB.NET:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ProgressBar1.Value = 0
ProgressBar1.Maximum = 10000000
For i As Integer = 0 To 10000000
ProgressBar1.Value = i
Next
End Sub