VB 中 NumericUpDown 控件 如何为手动输入设定触发事件？

Private Sub numDuration_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles numDuration.KeyUp
                numDuration.Value = numDuration.Value
        End Sub

  Private Sub numDuration_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles numDuration.ValueChanged
                .........
        End Sub

VB 中没有inputTextChanged 的类似事件，只能通过Key事件来捕获手动输入数字的事件，然后用一个赋值操作来触发 valueChanged事件,在valueChanged事件中进行相关操作。