Dim TestControl1 as Control
TestControl1 = TextBox1
 
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
AddHandler TestControl1.BackColorChanged, AddressOf MSGBoxFub
 
End Sub
 
 
 
Public Sub MSGBoxFub()
    MsgBox "Eine Property hat sich geändert"
End Sub