ありがとうございます
できました。
 If ProgressBar1.Value = 100 Then
            Timer1.Stop()
        Else
        End If
をTimer1_Tickの中に入れたら100になったらストップしました。