Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        If e.Delta < 0 Then
            NumericUpDown.Value -= 1
        ElseIf e.Delta > 0 Then
            NumericUpDown.Value += 1
        End If
    End Sub