Private Sub NumericUpDown1_Validating(ByVal sender As Object, _
        ByVal e As System.ComponentModel.CancelEventArgs) _
        Handles NumericUpDown1.Validating
        Dim nup As NumericUpDown = CType(sender, NumericUpDown)
        With nup
            If .Value < .Maximum Then
                .UpButton() : .DownButton()
            Else
                .DownButton() : .UpButton()
            End If
        End With
    End Sub