[RaggiTech]

اخي العزيز

VS2015
قد استطعت التوصل فقط الى طريقة تحريك الفورم

ابحث عن السطر

كود :

mParent = frm

واضف بعده

كود :

AddHandler frm.MouseDown, AddressOf Form1_MouseDown
AddHandler frm.MouseMove, AddressOf Form1_MouseMove

ثم اضف هذا الكود في تصريح

Form1_MouseDown

كود :

mLastLocation = e.Location

واضف هذا الكود في تصريح

Form1_MouseMove

كود :

If (mMovable) AndAlso (e.Button = MouseButtons.Left) Then
Dim pos As Point = Me.PointToScreen(New Point(e.X, e.Y))

pos.Offset(-mLastLocation.X, -mLastLocation.Y)
Me.Location = pos

End If