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