[حسن الجلب]

السلام عليكم سؤالي هو موضوعه عاوز كود تحريك الفورم من اي نقطه لوكاشين علي الفورم

[asemshahen5]

PHP كود :

Public Class Form1
    Private IsMouseDown As Boolean = False
    Private MouseOffset As Point
    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            IsMouseDown = True
            MouseOffset.X = e.X
            MouseOffset.Y = e.Y
        End If
    End Sub
    Private Sub Form1MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Location = New Point( _
                Me.Location.X + e.X - MouseOffset.X, _
                Me.Location.Y + e.Y - MouseOffset.Y)
        End If
    End Sub
End Class