Visual Basic - como hago para arrastrar y soltar un picturebox

como hago para arrastrar y mover un picturebox en un formulario
gracias

Te anexo un pequeño código, que espero te sirva.

Public globalX As Integer
Public globalY As Integer

Private Sub Form_DragDrop(Source As Control, X As _
Single, Y As Single)
Picture1.Move X - globalX, Y - globalY
End Sub

Private Sub Picture1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Picture1.Drag vbBeginDrag
globalX = X
globalY = Y
End Sub

Saludos Pola