<Bindable(True)> Property DataBindingMember() As String
        Get
            Return str_BindingMember
        End Get
        Set(ByVal Value As String)
            str_BindingMember = Value
        End Set
    End Property

    Public Sub New()
        MyBase.New()
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
        Me.txtBindingValue.DataBindings.Add(New System.Windows.Forms.Binding( _
          "Text", DataBindingMember)
    End Sub

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)