Progress Bar

Hi,

I am trying to show the progress bar during child form is loading. Bcoz child form loading take 5 ~10 seconds.
But when I run it, the progress bar didn't go in action before the form is loaded.
It show actions only when the child form is loaded.
Some says to call update method to show the progress. But no changes.
Help please!

Code:

---

    Private Sub Dsequence_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim frm As New PBar
        frm.ProgressBar1.Maximum = 100
        frm.ProgressBar1.Minimum = 0
        frm.ProgressBar1.Value = 0
        frm.Show()
        Application.DoEvents()
        frm.update()

        ...........
        Form Loading events....
        ............
 
        frm.Close()
    End Sub

---

Application.DoEvents should be invoked every time the progress bar needs updating.