Option Explicit
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 100 Then
Form2.Show
Timer1.Enabled = False
End If
End Sub