ما در اینجایک باتون را به عنوان مثال روی صحفه به حرکت در میآوریم
در قسمت موس آپ مینویسیم
dim down as boolean
down=false
در قسمت موس دون مینویسیم
dim t, w as intiger
w=e.y
t=e.x
در قسمت موس موو مینویسیم
if down =true then
button1.left +=e.y-w
button1.top +=e.x-t
end if
