Mover una ventana

Si agregale este behaviour al objeto ese de la miaw:
property p_p, p_d,p_rh,p_rv,p_r,p_d2,p_vh,p_vv
on beginsprite me
p_p=0
end
on mousedown me
p_p=1
end
on mouseup me
p_p=0
end
on mouseupoutside me
p_p=0
end
on exitframe me
if p_p=1 then
if the mousedown then
p_vh= (the activewindow).rect.left
p_vv=(the activewindow).rect.top
p_d=p_vh- (the clickloc).loch
p_d2=p_vv- (the clickloc).locv
v=1
miaw=the activewindow
p_ancho=miaw.rect.width
p_alto=miaw.rect.height
v=0
l=(the mouseloc).loch --+p_vh
lv=(the mouseloc).locv--+p_vv
miaw.rect= rect(l+p_d,lv+p_d2,p_ancho+p_d+l,p_alto+lv+p_d2)
end if
end if
end
on getBehaviorTooltip me
return \
"Este comportamiento sirve mover una miaw. Se puede usar para crear una barra de titulo personalizada" & \