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事件中进行相关操作。