---

Hej gruppe

Næsten (hvis ikke) alle kontroller får tildelt et nummer (ID) et hWnd.
Vedhæftet eks. aflæser kontrollens wHnd der ligger under musen. Hvad referer
dette nummer til - og kan man finde oplysninger om hvilken kontrol (TextBox,
Label ect.)??

/Johnny

Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As
Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long,
ByVal yPoint As Long) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Sub Timer1_Timer()
Dim ptMouse As POINTAPI
GetCursorPos ptMouse
Label1.Caption = WindowFromPoint(ptMouse.X, ptMouse.Y)

End Sub

__________________________________________________________________ Johnny
Jensen IT Manager ICQ#: 179719734 Current ICQ status: ( Home Tel#: +45
46369401 ( Work Tel#: +45 22293296 + More ways to contact me
__________________________________________________________________