I want the user to be able to manually drag and drop my ActiveX controls but I don't know how to support it. When I use automatic DragMode it works fine but I want more control over the event. I've tried the usual stuff that works with for example label1:

Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Label1.Move Label1.Left - (prevX - X), Label1.Top - (prevY - Y)
End Sub

Private Sub label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
prevX = X
prevY = Y
End Sub

That doesn't work on my own ActiveX-controls though.

What can I do?

Thanks