VB拖动无边框窗体的例子.rar

拖动无边框窗体的例子，演示了具体的实现方法，基于VB6.0编写，一个很实用的移动无标题栏窗体的例子，拖动无边框窗体其实现方法简单，很值得借鉴。以下是关键部分的代码：　　SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)　　IfButton=1Then'CheckingforLeftButtononly　　DimReturnValAsLong　　x=ReleaseCapture()　　ReturnVal=SendMessage(hwnd,WM_N