Public Class aClass
        Private _anObject As Object
 
        Public Property AnObject As Object
            Set(value As Object)
                If Not IsTypeAllowed(value) Then
                    Throw New ArgumentException("Illegal Datatype")
                End If
                _anObject = value
            End Set
            Get
                Return _anObject
            End Get
        End Property
 
        Private Function IsTypeAllwed(ByVal value As Object) As Boolean
            Dim ty As Type = value.GetType
            If Not ty.IsPrimitive And _
               Not ty.Equals(GetType(Decimal)) And
               Not ty.Equals(GetType(String)) Then
                Return False
            End If
            Return True
        End Function
    End Class

    Public Class aClass
        Public Property AnObject As Object
    End Class
 
    Dim ac1 As New aClass
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        ac1.AnObject = 3
        TextBox1.DataBindings.Add("Text", ac1, "AnObject")
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        MsgBox(ac1.AnObject.ToString())
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Class Item
    Public Name As String
    Private _Wert As Object = 0
 
    Public Property Wert As Object
        Get
            Return _Wert
        End Get
        Set(ByVal value As Object)
            _Wert = value
        End Set
    End Property
 
End Class

Label1.DataBindings.Add(New Binding("Text", Automatik, "Wert"))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Class Item
 
    Implements INotifyPropertyChanged
 
    Public Name As String
    Private _Wert As Object = 0
    Public Event PropertyChanged(sender As Object, e As _
      PropertyChangedEventArgs) Implements _
      INotifyPropertyChanged.PropertyChanged
 
     Public Property Wert As Object
        Get
            Return _Wert
        End Get
        Set(value As Object)
            If value <> _Wert Then
                _Wert = value
                RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs( _
                  "Wert"))
            End If
        End Set
    End Property
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist