VB dragmove如何用的啊

VB dragmove怎么用的啊？
小弟刚学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可改变。

谢谢了

------解决方案--------------------
那不用drag over，
form_mousemove里面，如果picturebox得到焦点就是picture1 mouseover里面

然后就是画线了，line本身就是控件，把它设置到相应位置就好了

drag over是在托拽中才用到的