Option Explicit
Dim twpp As Long
Dim X2 As Long
Dim Y2 As Long

Private Sub Form_Load()
    twpp = Screen.TwipsPerPixelX
End Sub

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    X2 = X
    Y2 = Y
    Frame1.MousePointer = 15
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Frame1.Left = Frame1.Left + (X - X2) / twpp
        Frame1.Top = Frame1.Top + (Y - Y2) / twpp
    End If
End Sub

Private Sub Frame1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Frame1.MousePointer = vbDefault
End Sub