Public Class Form1
 
    Public Shared WithEvents d2 As TextBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        d2 = New TextBox
        d2.DataBindings.Add("Text", TextBox1, "Text")
    End Sub
 
 
    Private Shared Sub d2_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles d2.TextChanged
        MsgBox("hallo")
    End Sub
End Class