VB dragmove怎么用的啊？

Question

小弟刚学VB 
  dragmove书上也没说清楚，网上也查不到。想问大虾们咋用的。Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
End Sub
我想在鼠标经过（mousemover)窗体form1上的控件picture1时，获取picture1的坐标，并
在picture1上边画一条线.（form1.Line (X, Y - 20)-(X + 10000, Y - 20), vbRed）
上面的20可改变。谢谢了

Answer 1

把 dragover  写成dragmove了
更正哈

Answer 2

那不用drag over，
form_mousemove里面，如果picturebox得到焦点就是picture1 mouseover里面然后就是画线了，line本身就是控件，把它设置到相应位置就好了drag over是在托拽中才用到的

Answer 3

SORRY
         我没说清楚。
我的意思是当拖曳一个控件pictur1  经过 picture2的上方时，获取picture2的坐标。

Answer 4

原来  .drag(1) 方法 才是我要找的