EX. CONCRETS ! DEPLACER UNE FORM AVEC LA METHODE DU CLIQUE-TIRE

'Copiez-collez ce code dans une de vos form et testez !

Private Down As Integer, DepartX As Integer, DepartY As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Down = True
    DepartX = X
    DepartY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Down = True And Button = 1 Then
        If X > DepartX Then
            Form1.Left = Form1.Left + Abs((X - DepartX))
        ElseIf X < DepartX Then
            Form1.Left = Form1.Left - Abs((X - DepartX))
        End If
        
        If Y > DepartY Then
            Form1.Top = Form1.Top + Abs((Y - DepartY))
        ElseIf Y < DepartY Then
            Form1.Top = Form1.Top - Abs((Y - DepartY))
        End If
    End If
    
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Down = False
End Sub