Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer = 5
errX = 0
errY = 0
Dim co As POINTAPI
i = GetCursorPos(co)
frmX = Form1.Left
frmY = Form1.Top
cuX = co.xx * 15
cuY = co.yy * 15
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim co As POINTAPI
i = GetCursorPos(co)
If Button = 1 Then
errX = co.xx * 15 - cuX
errY = co.yy * 15 - cuY
Form1.Left = frmX + errX
Form1.Top = frmY + errY
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer = 0

End Sub