论坛里有例子，不过超出帮助范围的知识，一时半刻理解不全。改用折中的方法,参考移动控件的例子。
定义全局变量x,y.
鼠标按下事件：
If e.Button = MouseButtons.Left Then
vars("x") = e.X
vars("y") = e.Y
End If
鼠标移动事件：
If e.Button = MouseButtons.Left Then
e.Sender.Left += e.x - vars("x")
e.Sender.top += e.y - vars("y")
end if
上面的代码用在窗口中的控件是没有问题的。
但是用在无边框的独立窗口。
panel鼠标按下事件
If e.Button = MouseButtons.Left Then
vars("x") = e.X+ e.Form.BaseForm.left
vars("y") = e.Y+e.Form.BaseForm.Top
End If
移动事件：
If e.Button = MouseButtons.Left Then
e.Form.BaseForm.left =e.Form.BaseForm.left+(e.x+e.Form.BaseForm.left )- vars("x")
e.Form.BaseForm.Top= e.Form.BaseForm.Top+(e.y+e.Form.BaseForm.Top )- vars("y")
End If
效果倒是出来了。但是轻轻拉一下，窗口飞到不知那去了。
这原理是一样的，怎么效果就差别这么大呢。
（对不起，搞定了。。直接删去+e.Form.BaseForm.left）
有点不美观，拖个小尾巴。要怎么解决呢。
[此贴子已经被作者于2016/6/20 14:26:06编辑过]
加好友 
发短信
Post By：2016/6/20 12:43:00 [只看该作者]
此主题相关图片如下：011.jpg