IfMouseInForm

Dim TCurPos As POINTAPI
Dim sspHwnd As Long

'Rileva la posizione del mouse

GetCursorPos TCurPos

'Rileva l'hWnd della finestra su cui sta

'passando il mouse

sspHwnd = WindowFromPoint(TCurPos.X,TCurPos.Y)

If sspHwnd = MYHWND Then ' E' dentro
Else 'E' Fuori
End If

'Per le dichiarazioni di POINTAPI, GetCursorPos e

'WindowFromPoint vedi il visualizzatore API.