Microsoft Small Basic

Program Listing: MTF058
ellipse = Shapes.AddEllipse(50, 30)
' Note that Flickr operations could display pictures that are potentially
' offensive to younger users.
image = Shapes.AddImage(Flickr.GetRandomPicture("cat"))
PauseProgram()
Shapes.Move(image, 200, 300)
PauseProgram()
line = Shapes.AddLine(0, 100, 20, 120)
PauseProgram()
rectangle = Shapes.AddRectangle(50, 30)
PauseProgram()
triangle = Shapes.AddTriangle(0, 0, 0, 30, 30, 0)
PauseProgram()
Shapes.Animate(ellipse, 100, 100, 2000)
PauseProgram()
GraphicsWindow.Title = "line's left is: " + Shapes.GetLeft(line)
PauseProgram()
GraphicsWindow.Title = "ellipse's top is: " + Shapes.GetTop(ellipse)
PauseProgram()
Shapes.HideShape(triangle)
PauseProgram()
Shapes.Move(rectangle, 100, 10)
PauseProgram()
Shapes.Remove(line)
PauseProgram()
Shapes.Rotate(rectangle, 45)
PauseProgram()
Shapes.SetOpacity(rectangle, 50)
PauseProgram()
Shapes.ShowShape(triangle)
PauseProgram()
Shapes.Zoom(ellipse, 3, 5)
GraphicsWindow.ShowMessage("Done!", "Done")

Sub PauseProgram
Program.Delay(2000)
EndSub