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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر