Option Explicit
 
Public SetOldCoord As Boolean
Dim OldX As Integer
Dim OldY As Integer
 
Private Sub Form_Load()
    SetOldCoord = False
End Sub
 
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
    If Button = vbRightButton Then
        If SetOldCoord = False Then
            OldX = X
            OldY = Y
            SetOldCoord = True
        End If
 
 
    End If
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    If Button = vbRightButton Then
        Me.Left = Me.Left - OldX + X
        Me.Top = Me.Top - OldY + Y
    End If
End Sub
 
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As _
  Single)
    SetOldCoord = False
End Sub