codice:
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Source.Left = X - Source.Width / 2
    Source.Top = Y - Source.Height / 2
End Sub
Poi setti la proprietà dragMode del frame in Automatic.

Ciao