Private Sub main_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick

Dim contSel As System.Windows.Forms.Control

contSel = GetFocusedControl(MyBase.Controls)
Dim ff As String
ff = contSel.ToString

End Sub