Kursorla elementin yerini deyisdirmek

Kursorla elementin yerini deyisdirmek
1.panel yaradib backgroung coloru isteye uygun deyisin(form1 backgrounddan ferqli olsun)
2.Timer1 yaradin
public class form1
dim panellock as new point (0,0)
dim cursorlock as new point (0,0)
end sub
private sub setpositions()
curlock= system.windows.forms.cursor.position
panellock = panel1.Location
private sub Form1_Load()
Timer1.Interval = "1"
setpositions()
end sub
private sub panel1_mousedown()
Timer1.enabled = true
Timer1.start()
setpositions()
end sub
private sub panel1_mouseup
timer1.stop
setpositions()
end sub
private sub timer_tick()
panel1.location=panlock-cursorlock+system.windows.forms.cursor.position
setpositions()
End sub
end class