PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
i=1
x1=X
y1=Y
EndSub
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Ifi=1Then
x2=X-x1 form1.lift
y2=Y-y1 form1.top
form1.movex2,y2
EndIf
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
i=0
EndSub
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）->
