Find control Name

app/DD_Clipboard_Searcher/frmControlCapture.vb

@@ -0,0 +1,18 @@
+Imports DD_Clipboard_Watcher.ClassWindowAPI
+
+Public Class frmControlCapture
+    Public ControlName As String
+    Public ProcessName As String
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Dim oResult As WindowInfo = GetFocusedControl(Handle)
+
+        If oResult IsNot Nothing Then
+            txtPID.Text = oResult.ClassName
+            txtName.Text = oResult.ProcessName
+            txtControlName.Text = oResult.ControlName
+            ControlName = oResult.ControlName
+            ProcessName = oResult.ProcessName
+        End If
+    End Sub
+End Class