Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 5000
Timer1.Interval = 5000
Timer2.Interval = 93
End Sub
 
Private Sub Timer1_Timer()
ProgressBar1.Value = 100
Unload Me
End Sub
 
Private Sub Timer2_Timer()
On Error Resume Next
ProgressBar1.Value = ProgressBar1.Value + 100
End Sub

Private Sub Form_Load()
Splash.Show vbModal
End Sub