这个意思？
Dim dp As Pointdp = e.Form.controls("Button1").basecontrol.PointToClient(dp)msgbox(dp.x & " " & dp.y)
加好友 
发短信
Post By：2019/3/21 17:17:00 [只看该作者]
