Microsoft Small Basic

Program Listing:
Embed this in your website
gw = 600
gh = 600
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh

clickMe = Controls.AddButton("Click Me",0,0)
Controls.SetSize(clickMe,70,30)
GraphicsWindow.MouseMove = OnMouseMove
Controls.ButtonClicked = OnButtonClicked

Sub OnMouseMove
  x = Math.Abs(gw-GraphicsWindow.MouseX)
  y = Math.Abs(gh-GraphicsWindow.MouseY)
  dist = Math.SquareRoot((x-gw/2)*(x-gw/2)+(y-gh/2)*(y-gh/2))
  Shapes.SetOpacity(clickMe,dist-20)
  Shapes.Zoom(clickMe,dist/20,dist/20)
  Shapes.Move(clickMe,x-35,y-15)
EndSub

Sub OnButtonClicked
  GraphicsWindow.BackgroundColor = "Red"
EndSub
Copyright (c) Microsoft Corporation. All rights reserved.