Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        Dim obj As Control = Me.GetChildAtPoint(New Point(e.X, e.Y))
        If Not obj Is Nothing Then
            ' ..
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim obj As Control = Me.GetChildAtPoint(Me.PointToClient(( _
        Me.MousePosition)))
        If Not obj Is Nothing Then
          Debug.WriteLine("Current Control: " + obj.Name)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For Each c As Control In Me.Controls
            AddHandler c.MouseMove, AddressOf Me.Control_MouseMove
        Next
    End Sub
    Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As _
      MouseEventArgs)
        Dim obj As Control = CType(sender, Control)
        If Not obj Is Nothing Then
            Debug.WriteLine("Current Control: " + obj.Name)
        End If
    End Sub

        Dim obj As Control = CType(sender, Control)
 
        For i = 0 To 16
 
            If obj.Name.Equals(Split(strErlaeuterung(i), ";")(0)) Then
                lblInfo.Text = Split(strErlaeuterung(i), ";")(1)
 
            Else
 
                lblInfo.Text = ""
 
            End If
 
        Next

        For Each c As Control In Me.GroupBox1.Controls
            AddHandler c.MouseMove, AddressOf Me.Control_MouseMove
        Next