[Error] Progress bar.

Public Class Form1    Private Sub NsButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NsButton1.Click        Timer1.Start()        NsProgressBar1.Value = NsProgressBar1.Minimum    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        NsProgressBar1.Value += 1        If NsProgressBar1.Value = NsProgressBar1.Maximum Then            Timer1.Stop()        Else        End If        If NsProgressBar1.Value = 1 Then            NsTextBox3.Text = "ble ble"        End If        If NsProgressBar1.Value = 13 Then            NsTextBox3.Text = "ble ble"        End If        If NsProgressBar1.Value = 25 Then            NsTextBox3.Text = "ble ble"        End If        If NsProgressBar1.Value = 45 Then            NsTextBox3.Text = "ble ble"        End If        If NsProgressBar1.Value = 55 Then            NsTextBox3.Text = "ble ble"        End If        If NsProgressBar1.Value = 85 Then            NsTextBox3.Text = "ble ble"        End If        If NsProgressBar1.Value = 99 Then            NsTextBox3.Text = "ble ble"            NsTextBox3.ForeColor = Color.Green        End If    End Sub