GraphicsWindow.Title = "Zoom example"
curDir = Program.Directory
ImagePath = curDir+"\mytest.jpg"
shares_image = Shapes.AddImage(ImagePath)
Width = ImageList.GetWidthOfImage(ImagePath)
Height= ImageList.GetHeightOfImage(ImagePath)
x_image = (GraphicsWindow.Width - Width)/2
y_image = (GraphicsWindow.Height - Height)/2
Shapes.Move(shares_image, x_image, y_image)
scaleX = 1
scaleY = 1
Timer.Interval = 1000
Timer.Tick = ZoomTick

Sub ZoomTick
Shapes.Zoom(shares_image,scaleX, scaleY)
scaleX = scaleX + 0.1
scaleY = scaleY + 0.1
EndSub