Creaccion de Barra Progresiva en Visual Basic

1er Paso: Acesar en VB a Proyecto - Componentes y Buscar "Microsoft Windows Common Controls 6.0 SP6"
2do Paso: Crear un Formulario y en el Insertar
* Un Timer
* Una Progress Bar
* Un Label
3er Paso: Pegar el Siguiente Codigo Teniendo en Cuenta que al Finalizar (llegar a 100%) la Progress Bar abrira Otro Formulario

Codigo:
Public i 'declaracion de variable

Private Sub Timer1_Timer()
i = i + 1
ProgressBar1.Value = ProgressBar1.Value + 1
Label2.Caption = Str(i)
If i = 100 Then
    Unload Me
    Form2.Show 'Formulario Destino
End If
End Sub

4to Paso: Lo de siempre, "Un buen diseño es la clave de un Buen Sistema"