主题：我得到窗口在屏幕位置，但是控件的位置不是以这个为起点

以下是控件的click事件：

Dim x As Integer
Dim y As Integer
x = System.Windows.Forms.Cursor.Position.X.toString()
y = System.Windows.Forms.Cursor.Position.y.toString()
e.Form.controls("Button2").left=x-e.form.baseform.left
e.Form.controls("Button2").Top=y-e.form.baseform.top
e.Form.controls("Button2").Visible=True

通过这个可以获得窗口位置，但是控件的位置总是偏差一个窗口标题栏高度（Y）和窗口边框宽度（x）的值

怎么解决呢？

能不能进一步实现拖着控件走呢？

我最终目的是想实现在窗口中绘制流程图，最后实现自动绘制流程图功能