All of the Controls (Buttons, TextBoxes etc) that can be created with the Controls object can be manipulated with the Shapes object methods.
This can create some fun effects and make your games or programs more visually interesting.
Here is a simple example - it is possible to click it, but pretty hard!
http://smallbasic.com/program/?CWT060
gw = 600gh = 600GraphicsWindow.Width = gwGraphicsWindow.Height = gh clickMe = Controls.AddButton("Click Me",0,0)Controls.SetSize(clickMe,70,30)GraphicsWindow.MouseMove = OnMouseMoveControls.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
