Zoom in-out

Saya ingin membuat salah satu sprite bisa di zoomin dan di zoomout, bagaimana caranya ?
Masukan behavior ini kedalam sprite yang anda inginkan...
---------------------------------------
property spriteNum
property mySprite
property cloch
property clocv
property cwidth
property cheight
property cursor

on beginSprite me
mySprite = sprite (me.spriteNum)
mySprite.cursor = 303
cloch = mySprite.loch
clocv = mySprite.locv
cwidth = mySprite.width
cheight = mySprite.height
end beginSprite

on mouseup
if mySprite.loch = cloch then
mySprite.cursor = 302
mySprite.loch = 200
mySprite.locv = 200
mySprite.width = 400
mySprite.height = 400
else
mySprite.cursor = 303
mySprite.loch = cloch
mySprite.locv = clocv
mySprite.width = cwidth
mySprite.height = cheight
end if

end
---------------------------------------

(sumber: www.Augesweb.com)