这个意思?
Dim dp As Pointdp = e.Form.controls("Button1").basecontrol.PointToClient(dp)msgbox(dp.x & " " & dp.y)