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