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!!!!

[culd]

Hola, creo que esto es lo que buscas.

Código:

Private Sub Command1_Click()
Barra.Min = 0
Barra.Max = 10000

Dim X As Integer

For X = 1 To 10000
    Barra.Value = X
Next

Form2.Show
Unload Me
End Sub

- Agregas un boton en tu form1
- Agregas una Barra y la llamas asi
- Agregas un form2
- Agregas eso en el codigo del boton evento del click