Как реализовать имитацию загрузки

Option Explicit
Dim lngTime As Long
Private Sub Command1_Click()
Me.Timer1.Interval = (100)
Me.Command1.Enabled = (False)
End Sub
Private Sub Form_Load()
Me.Caption = ("Test") 'Имя заголовка формы
Me.Command1.Caption = ("Start") 'Надпись кнопки
 
'Устанавливаем свойства для ProgressBar1
With Me.ProgressBar1
.Min = (0): .Max = (100) 'Устанавливаем минимальное и максимальное значения
.Value = (0) 'По умолчанию ставим с нуля
.Appearance = (0): .BorderStyle = (1)
End With
End Sub
 
Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
 
End Sub
 
Private Sub Timer1_Timer()
lngTime = (lngTime + 1)
 
Me.ProgressBar1.Value = (lngTime)
 
If lngTime = (100) Then
Me.Timer1.Interval = (0) 'Устанавливаем интервал таймера на ноль
 
lngTime = (0) 'Обнуляем переменную
 
Me.Command1.Enabled = (True)
 
Me.ProgressBar1.Value = (0) 'Устанавливаем с нуля
 
End If
End Sub

Private Sub Timer1_Timer()
lngTime = (lngTime + 1)
 
Me.ProgressBar1.Value = (lngTime)
 
If lngTime = (100) Then
Me.Timer1.Interval = (0) 'Устанавливаем интервал таймера на ноль
 
lngTime = (0) 'Обнуляем переменную
 
Me.Command1.Enabled = (True)
 
Me.ProgressBar1.Value = (0) 'Устанавливаем с нуля
 
MsgBox "Готово"
 
End If
End Sub

MsgBox "Готово", , "Название окна"