Progress bar

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False

ProgressBar1.Value = 0
Unload Form1 (add this if you want a form to show when the progress bar is finished loading.)
Form2.Show
End If
End Sub