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…