Private Class Numbers
   Dim _number As Integer = 0
 
   Public Property Number As Integer
            Set(value As Integer)
                If value > 100 Then
                    MsgBox("Aua. Über 100 schmerzt") : Exit Property
                End If
                If value < 0 Then
                    MsgBox _
                    ("Uii. Unter 0 ist groovy, aber nicht erlaubt.") 
                    Exit Property
                End If
                _number = value
            End Set
            Get
                Return _number
            End Get
        End Property
 End Class
 
 Dim myNumber As New Numbers
 
 Private Sub Form_Load(sender As System.Object, _
          e As System.EventArgs) Handles MyBase.Load
 
 
        NumericUpDown1.Maximum = 100000000
        NumericUpDown1.Minimum = -100000000
 
        NumericUpDown1.DataBindings.Add _
        (New Binding("Value", mynumber, "Number", True, _
        DataSourceUpdateMode.OnPropertyChanged))
 
End Sub