VB6.0寫的，代碼很簡單，無意中寫成的。應該可以參考。不需要任何api函數。在無邊框窗體頂部中放入一個label標簽。然后用label的mousedown和mousemove事件實現

Dima,bAsSingle

PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

a=X

b=Y

EndSub

PrivateSubLabel1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=1Then

Form1.MoveLeft+X-a,Top+Y-b

EndIf

EndSub