Hola, intentaste hacerlo ? es re facil...pones una progressbar y un Timer y algo como esto:
Código vb:
Ver originalPrivate Sub Form_Load()
With Timer1
.Interval = 500
.Enabled = True
End With
ProgressBar1.Value = 0
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 10
ProgressBar1.Value = i
If i = 100 Then Unload Me
End Sub
saludos.