Barra de progresso

Código:

Option Explicit

Private Sub Form_Load()

    Shape1.Width = 0

    Timer1.Interval = 100

    Frame1.Caption = "Aguarde..."

End Sub

Private Sub Timer1_Timer()

    If Shape1.Width > 3250 Then

        Shape1.Width = 3255

        Me.Timer1.Interval = 0

        Unload Me

        Form2.Show

        Exit Sub

    End If

    Shape1.Width = Shape1.Width + 10

    Frame1.Caption = "Aguarde... " & Format(100 / 3255 * Shape1.Width, 0) & " %"

End Sub