جا به جایی form

[sina.lor.boy]

#Region "move form"
Dim locat, Cours As New Point(0, 0)
Private Sub panel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles leftlabelPanel.MouseDown, balapanel.MouseDown, leftlabelPanel.MouseDown, persianlabel.MouseDown
If Control.MouseButtons = Windows.Forms.MouseButtons.Left Then

' If Me.WindowState = FormWindowState.Maximized Then

' Me.WindowState = FormWindowState.Normal
' Me.Top = 4
'Else
Timer1.Enabled = True
Timer1.Start()
SYNCE()

End If
' End If

End Sub
Private Sub panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles leftlabelPanel.MouseUp, balapanel.MouseUp, leftlabelPanel.MouseUp, persianlabel.MouseUp
Timer1.Stop()
SYNCE()

End Sub
Private Sub SYNCE()
Cours = Cursor.Position
locat = Me.Location
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Location = locat - Cours + Cursor.Position
End Sub

#End Region


فکر نکنم توضیح بخواد .

[bitcob589]

اگر امکان دارد کد توضیح دهید یا یک سمپل جهت واضح تر شدن کد بالا بگذارید