DÉPLACEMENT D'UNE FORM N'AYANT PAS DE BARRE TITRE

#Region "Déclaration des variables"

    Dim Position_Souris_X As Integer
    Dim Position_Souris_Y As Integer
    Dim Variation_Position_Souris_X As Integer
    Dim Variation_Position_Souris_Y As Integer

#End Region

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Position_Souris_X = e.X
        Position_Souris_Y = e.Y
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If Me.MouseButtons = MouseButtons.Left Then
            Variation_Position_Souris_X = e.X - Position_Souris_X
            Variation_Position_Souris_Y = e.Y - Position_Souris_Y
            Me.Left = Me.Left + Variation_Position_Souris_X
            Me.Top = Me.Top + Variation_Position_Souris_Y
        End If
    End Sub