可是还是不能 获得<<<鼠标所在窗体>>>在屏幕上的位置

GetCursorPos VB声明 
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long 
说明 
获取鼠标指针的当前位置 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
lpPoint POINTAPI，随同指针在屏幕像素坐标中的位置载入的一个结构 WindowFromPoint VB声明 
Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long 
说明 
返回包含了指定点的窗口的句柄。忽略屏蔽、隐藏以及透明窗口 
返回值 
Long，包含了指定点的窗口的句柄。如指定的点处没有窗口存在，则返回零 
参数表 
参数 类型及说明 
xPoint Long，x点值 
yPoint Long，y点值 
GetWindowRect VB声明 
Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long 
说明 
获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
hwnd Long，想获得范围矩形的那个窗口的句柄 
lpRect RECT，屏幕坐标中随同窗口装载的矩形 
注解 
如将它与通过GetDesktopWindow获得的句柄联合使用，可获得对整个可视显示区域（桌面）进行说明的矩形