Microsoft Small Basic

Program Listing: QTC048-0

List Program

' Zoom Sample
' Program ID QTC048-0
gw = 598
gh = 428
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.BackgroundColor = "LightGray"
For scale = 2 To 0.1 Step -0.1
GraphicsWindow.Title = "scale = " + scale
url = "http://gallery.technet.microsoft.com/site/view/file/119954/1/Duck2.png"
DrawAndZoom()
Program.Delay(2000)
GraphicsWindow.Clear()
url = "http://gallery.technet.microsoft.com/site/view/file/119953/1/Duck.png"
DrawAndZoom()
Program.Delay(2000)
GraphicsWindow.Clear()
EndFor
Sub DrawAndZoom
duck = Shapes.AddImage(url)
Shapes.Move(duck, 200, 140)
Program.Delay(1000)
Shapes.Zoom(duck, scale, scale)
EndSub