Déplacement d'un contrôle Frame

Bonjour,

et comme ceci, en laissant dans son coin la propréité  Dragmode; dont nous n'avons pas besoin (donc = 0)?

Option Explicit
Dim MovTop, MovLft As Integer
Dim DbTop, DbLft As Integer

Private Sub FrameAjout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
   DbTop = ScaleY(Y, 1, 3): DbLft = ScaleX(X, 1, 3)
  End If
End Sub
Private Sub FrameAjout_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    MovLft = Int((FrameAjout.Left + ScaleX(X, 1, 3)) - DbLft)
    MovTop = Int((FrameAjout.Top + ScaleY(Y, 1, 3)) - DbTop)
    FrameAjout.Move MovLft, MovTop
  End If
End Sub