Microsoft Small Basic

Program Listing:
Embed this in your website
' Small Basic Known Issue: 24406 - Shapes.GetOpacity() Causes Cast Error ()
gw = 598
gh = 428
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.PenColor = "Green"
GraphicsWindow.BrushColor = "Lime"
rect = Shapes.AddRectangle(100, 100)
Shapes.Move(rect, 100, 100)
While "True"
  Shapes.SetOpacity(rect, Math.GetRandomNumber(100))
  Program.Delay(300)
  opacity = Shapes.GetOpacity(rect)
  GraphicsWindow.Title = opacity
  Program.Delay(1000)
EndWhile
Copyright (c) Microsoft Corporation. All rights reserved.