VB.Net Progres Bar - Timer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If ProgressBar1.Value <= ProgressBar1.Maximum - 1 Then

ProgressBar1.Value += 1

Else : Timer1.Enabled = False

End If
End Sub

-_-_-_

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click

StatusBar1.Text = "Hello"
End Sub

-_-_-_