おはようございます。

蛇足ですが。

＞If ProgressBar1.Value = 100 Then
＞            Timer1.Stop()
＞        Else
＞        End If

上記の場合、”ELSE”はいりません。
”Else”は”If”後に書かれた条件に当てはまらない場合の処理を書く場所です。
例をあげると、以下のコードがあるとします。

Dim a As Integer
     :
If a = 0 Then
   処理A
Else
   処理B
End If

この場合、変数aが0なら処理Aが、0以外なら、処理Bが実行されます。
もし、変数aが0の場合のみ、処理を実行したいのなら、

Dim a As Integer
     :
If a = 0 Then
   処理
End If

で、大丈夫です。