J ai Besion d une Fonction Magique en VB PLZZ

Dim OffsetX As Single, OffsetY   As Single
Dim Déplacer As Boolean

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not Déplacer Then
        MousePointer = 15 'curseur souris croix de déplacement
        OffsetX = X
        OffsetY = Y
        Déplacer = True
    Else
        Command1.Top = Command1.Top + (Y - OffsetY)
        Command1.Left = Command1.Left + (X - OffsetX)
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Déplacer Then
        Déplacer = False
        MousePointer = 0
    End If
End Sub