barra de progreso

[Crigarbe]

Hola!!!Soy nueva en esto, a ver si podeis ayudar con una dudilla q m ha surgido...Quiero mostrar en un form una barra de progreso y cuand esta termine q m muestre otro form...xo la barra se rellena y cuand pasa un tiempo m muestra el form, y quiero q sea de inmediato!Alguien podria ayudarme, mi codigo es este...

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.pBar1.Value += 1
If Me.pBar1.Value = Me.pBar1.Maximum Then
Me.Timer1.Stop()
My.Forms.Mostrarcalendario().ShowDialog()
Me.Close()
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAceptar.Click
With Me.pBar1
.Maximum = 1000
.Minimum = 0
.Value = 0
End With
Me.Timer1.Interval = 1
Me.Timer1.Start()
End Sub

Muchas gracias!!!!