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