Didn't expect to post to have a few copies:)
Public Class Form1
Implements IMessageFilter

Private Sub Form4_Load (ByVal sender As System. Object, ByVal e the As System. EventArgs) Handles MyBase. Load


Application. AddMessageFilter (Me)
End Sub

Public Const WM_MOUSEMOVE As Integer=& amp; H200
As a Boolean Function PreFilterMessage (ByRef m As Message) Implements IMessageFilter. PreFilterMessage
If m.M sg=WM_MOUSEMOVE Then

MaskedTextBox1. Text=Control. FromHandle (m.H Wnd). The Name
Return False
End the If
Return False
End the Function


The End of the Class

CodePudding user response:

His knot can stick to a few I also? I just help others

CodePudding user response:

This kind of situation is better to write;

CodePudding user response:

If we can get the mouse on any window of a control is really fierce