Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)<br />
&nbsp; &nbsp; If Button And 1 Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.Left = Me.Left + (X - mdOriginX)<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.Top = Me.Top + (Y - mdOriginY)<br />
&nbsp; &nbsp; End If<br />
End Sub<br />

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

   Dim mdOriginX, mdOriginY

    If Button And 1 Then

        Me.Left = Me.Left + (X - mdOriginX)

        Me.Top = Me.Top + (Y - mdOriginY)

    End If

End Sub