Dim pbar As New ProgressBar
        pbar.Size = New Size(Me.StatusBar1.Width - 16, Me.StatusBar1.Height - 2)
        pbar.Location = New Point(0, 2)
        pbar.Step = 1
        Me.StatusBar1.Controls.Add(pbar)
        Dim i As Integer
        For i = 1 To 100
            Threading.Thread.Sleep(20)
            pbar.PerformStep()
            Application.DoEvents()
        Next
        pbar.Visible = False