' ALLEN CONTROLS EIN EVENT ZUWEISEN 
    Public Sub SetHandler(ByVal _sub As MouseEventHandler)
        AddHandler Me.MouseMove, _sub
        For Each c As Control In Me.Controls
            AddHandler c.MouseMove, _sub
            If c.Controls.Count Then SetHandler_Sub(c, _sub)
        Next
    End Sub
    Private Sub SetHandler_Sub(ByVal _o As Control, ByVal _sub As _
      MouseEventHandler)
        For Each c As Control In _o.Controls
            AddHandler c.MouseMove, _sub
        Next
    End Sub
    Private Sub oMouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
        Me.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