小弟我用VB编写了自定义控件， 想移动它， 怎么做呢

我用VB编写了自定义控件， 想移动它， 如何做呢
自定义控件里边只有 drapover ,DragDrop,没有MouseDown mouseup 

我的代码如下，
Private Sub ctrl_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
  GetCursorPos point
   
  With ctrl
  ' .Move .Left - point.X + X, .Top - point.Y + Y
  End With
End Sub

DragMode = 1我也设了，但发现个问题， 就是控件里的东西全都无法控制了，就是无法点控件里的按钮、TEXT等了， 


DragMode = 0后 控件能取得焦点， DragOver事件又不执行了，无法移动了， 我如何做能让控件移动后仍然取得焦点呢

[解决办法]

VB code

Option ExplicitPublic Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    RaiseEvent MouseDown(Button, Shift, X, Y)End Sub