Pytanie Problem z progressbarem

Public Class ReactorProgressBar : Inherits Control#Region " Control Help - Properties & Flicker Control "    Private OFS As Integer = 0    Private Speed As Integer = 50    Private _Maximum As Integer = 100    Public Property Maximum() As Integer        Get            Return _Maximum        End Get        Set(ByVal v As Integer)            Select Case v                Case Is < _Value                    _Value = v            End Select            _Maximum = v            Invalidate()        End Set    End Property    Private _Value As Integer = 0    Public Property Value() As Integer        Get            Select Case _Value                Case 0                    Return 1                Case Else                    Return _Value            End Select        End Get        Set(ByVal v As Integer)            Select Case v                Case Is > _Maximum                    v = _Maximum            End Select            _Value = v            Invalidate()        End Set    End Property    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)    End Sub    Protected Overrides Sub CreateHandle()        MyBase.CreateHandle()        ' Dim tmr As New Timer With {.Interval = Speed}        ' AddHandler tmr.Tick, AddressOf Animate        ' tmr.Start()        Dim T As New Threading.Thread(AddressOf Animate)        T.IsBackground = True        T.Start()    End Sub    Sub Animate()        While True            If OFS <= Width Then : OFS += 1            Else : OFS = 0            End If            Invalidate()            Threading.Thread.Sleep(Speed)        End While    End Sub#End Region    Sub New()        MyBase.New()        DoubleBuffered = True    End Sub    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)        Dim G As Graphics = e.Graphics        MyBase.OnPaint(e)        Dim intValue As Integer = CInt(_Value / _Maximum * Width)        G.Clear(Color.FromArgb(38, 38, 38))        Dim backGrad As New LinearGradientBrush(New Rectangle(1, 1, intValue - 1, Height - 2), Color.FromArgb(10, 9, 8), Color.FromArgb(31, 29, 26), 90S)        G.FillRectangle(backGrad, New Rectangle(1, 1, intValue - 1, Height - 2))        Dim hatch As New HatchBrush(HatchStyle.WideUpwardDiagonal, Color.FromArgb(175, 219, 78, 0), Color.FromArgb(175, 229, 98, 0))        G.RenderingOrigin = New Point(OFS, 0)        G.FillRectangle(hatch, New Rectangle(1, 1, intValue - 2, Height - 2))        Dim glossGradient As New LinearGradientBrush(New Rectangle(1, 1, intValue - 2, Height / 2 - 1), Color.FromArgb(80, Color.White), Color.FromArgb(50, Color.White), 90S)        G.FillRectangle(glossGradient, New Rectangle(1, 1, intValue - 2, Height / 2 - 1))        G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(10, 10, 10))), New Rectangle(0, 0, Width - 1, Height - 1))        G.DrawRectangle((New Pen(New SolidBrush(Color.Black))), New Rectangle(1, 1, Width - 3, Height - 3))        G.DrawRectangle((New Pen(New SolidBrush(Color.FromArgb(70, 70, 70)))), New Rectangle(0, 0, Width - 1, Height - 1))        G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, Width, 0)        G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, 0, Height)        G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), Width - 1, 0, Width - 1, Height)    End SubEnd Class