VB6鼠标可以随意拖动的窗体
DimmovesScreenAsBoolean
DimmousXAsInteger
DimmousYAsInteger
DimcurrXAsInteger
DimcurrYAsInteger
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
movesScreen=True
mousX=X
mousY=Y
EndIf
EndSub
PrivateSubForm_MouseMove(B