' ALLEN CONTROLS EIN EVENT ZUWEISEN 
Sub SetHandler(ByVal _sub As MouseEventHandler)
  AddHandler Me.MouseMove, _sub
For Each c As Control In Me.Controls
  AddHandler c.MouseMove, _sub
Next
End Sub
Private Sub oMouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
  Me.TextBox1.Text = sender.name & " - " & sender.backcolor.toargb
End Sub
' FORM LOAD
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 SetHandler(AddressOf Me.oMouseMove)
End Sub