questo è il codice che uso in una mia applicazione
codice:
Dim StartX As Integer
Dim StartY As Integer
Dim Moving As Boolean
Dim pausa As Boolean


Private Sub barra_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = 1 Then
StartX = x
StartY = Y
Moving = True
End If
End Sub

Private Sub barra_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Not Moving Then Exit Sub
Me.Move Me.Left + (x - StartX), Me.Top + (Y - StartY)
End Sub

Private Sub barra_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
Moving = False
End Sub
dove barra è una picturebox...prova a riadattare il codice su un frame,dovrebbe essere la stessa cosa
sempre se ho capito il problema