请教游戏里坐标的获取问题

请那位老师帮助啊；代码如下；Option ExplicitDim tPoint As POINTAPI
Dim bxqtHnd As LongPrivate Sub Command1_Click()bxqtHnd = FindWindow(vbNullString, "碧雪情天Online") '获取程序窗口句柄
Label3.Caption = bxqtHndEnd SubPrivate Sub Timer1_Timer()
Call ScreenToClient(bxqtHnd, tPoint)
Label1.Caption = tPoint.x
Label2.Caption = tPoint.yEnd Sub
得到的该游戏里的坐标值却是负数，而且还是不断的变化递增的，
不知是何原因，
还请哪位老师给与指教帮助，感谢了！！！！