Visual Basic - mover un frame con el mouse

tengo una duda y quisiera saber si se puede hacer o no...
tengo un frame en el cual hay botonos y textbox, etc.
lo que yo quiero es, que al hacer click en el frame y mover el mouse hacia la derecha o izquierda el frame se mueva en la misma direccion... eso sera posible de hacer ???. agradeceria mucho de su ayuda.

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Dim sDrag As Boolean, fY&, fX&
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If sDrag Then
Frame1.Top = Y - fY
Frame1.Left = X - fX
SetCapture Me.hwnd
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
sDrag = False
End Sub

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
sDrag = True
fY = Y : fX = X ' Esto es para que no arrastre desde la esquina
SetCapture Me.hwnd
End Sub

muchas gracias