option explicit
dim tx as single,ty as single
private sub pic_mousedown(...)
if button=vbleftbutton then
tx=x
ty=y
endif
end sub
private sub pic_mousemove(...)
if button=vbleftbutton then
pic.move pic.left+x-tx,pic.top+y-ty
endif
end sub
dim tx as single,ty as single
private sub pic_mousedown(...)
if button=vbleftbutton then
tx=x
ty=y
endif
end sub
private sub pic_mousemove(...)
if button=vbleftbutton then
pic.move pic.left+x-tx,pic.top+y-ty
endif
end sub
pfpf... ^0^