Microsoft Small Basic

Program Listing: CWT060

List Program

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