Working with Progress Bar Control in VB.Net

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        ProgressBar1.Minimum = 0

        ProgressBar1.Maximum = 100

        ProgressBar1.Value = 0

End Sub

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

        If ProgressBar1.Value < 100 Then

            ProgressBar1.Value += 5

        End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton2.Click

        If ProgressBar1.Value > 0 Then

            ProgressBar1.Value -= 5

        End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton3.Click

        ProgressBar1.Value = 100

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton4.Click

        ProgressBar1.Value = 0

End Sub

Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles MyBase.MouseWheel

        If e.Delta > -1 Then

            If ProgressBar1.Value < 100 Then

                ProgressBar1.Value += 5

            End If

        Else

            If ProgressBar1.Value > 0 Then

                ProgressBar1.Value -= 5

            End If

        End If

End Sub