Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim j As Integer
        Dim f As New Form2()
 
        Me.Enabled = False
 
        f.ProgressBar1.Minimum = 1
        f.ProgressBar1.Maximum = 1000000
        f.ProgressBar1.Value = 1
 
        f.Show()
 
        For i = 1 To 1000000
            f.ProgressBar1.Value = i
            j += 1
            If j = 5000 Then
                j = 0
                Application.DoEvents()
            End If
        Next
        f.Dispose()
        Me.Enabled = True
    End Sub