無框窗體移動最簡法(程序)

Dimi,x1AsDouble,y1AsDouble,x2AsDouble,y2AsDouble
　　PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　i=1
　　x1=X
　　y1=Y

EndSub

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

->