Option Explicit
 
Private xStart, yStart As Integer
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
    xStart = X
    yStart = Y
 
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
    If Button > 0 Then
        If X <> xStart Or Y <> yStart Then
            Me.Left = Me.Left + (X - xStart) * 15
            Me.Top = Me.Top + (Y - yStart) * 15
        End If
    End If
 
End Sub