VB6.0 控件自由拖动

VB6.0 控件自由拖动 有时，在编写代码的时候，可能需要一个浮动的界面(根据用户需求，实时拖动)，下面将介绍如何实现 1.首先要修改控件的DragMode模式为0.如下图所示： '注意，以下代码可以直接复制到VB代码最前面，然后，替换Frm_SM为对应的控件名即可 '2.整体添加全局变量，即程序写在最前面 Dim xPos As Long Dim yPos As Long '3.为对象的Mous

>>阅读原文<<