当我在VB.Net“ NumericUpAndDown”中滚动鼠标滚轮时，它将滚动3倍的值，我只想滚动1次...

经过一番搜索，我发现了这个

Public Sub RolagemMouse(sender As Object,e As MouseEventArgs)
    ' Periocidade.MouseWheel,Parcelas_UP_DWN.MouseWheel,TB_Valor.MouseWheel
    Try
        If e.Delta > 0 Then
            sender.Value += sender.increment
        Else
            sender.Value -= sender.increment
        End If
    Catch
    End Try
    CType(e,HandledmouseEventArgs).Handled = True

End Sub

它解决了我的问题，但是我的表单中有很多NumericUpAndDown，然后在添加的FormLoad事件中我有了另一个主意

For Each grupo As GroupBox In Controls.OfType(Of GroupBox)
        For Each objeto As NumericUpDown In grupo.Controls.OfType(Of NumericUpDown)
            AddHandler objeto.MouseWheel,AddressOf RolagemMouse
        Next
    Next

但这是不切实际的，我必须以各种形式进行说明，有没有更好的方法呢？