怎样用鼠标移动图片

我是这样移动控件的。
 
在表单的 Load 事件中加入以下代码
PUBLIC nX,nY,nXX,nYY,nXY
STORE 0 TO nX,nY,nXX,nYY
nXX=-1000
 
在控件(例如 Image)的 MouseDown 事件中加入以下代码
nXX=this.Left
nYY=this.top
nX=nXCoord  
nY=nYCoord
 
在控件(例如 Image)的 MouseMove 事件中加入以下代码
IF nXX > -1000
  this.Left=nXX+nXCoord-nX
  this.Top=nYY+nYCoord-nY
  nXX=this.Left
  nYY=this.Top
  nX=nXCoord
  nY=nYCoord
ENDIF
 
在控件(例如 Image)的 MouseUp 事件中加入以下代码
nXX=-1000
 
试试看，控件是不是被移动了。

怎么解决的