Microsoft Small Basic

Program Listing: TFW365

List Program

'Flickr Bunny Overload!!!!!!

'Usage:
' Show -> Click! -> Show ->....

w=GraphicsWindow.Width
h=GraphicsWindow.Height
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.MouseDown = Window_MouseDown
GraphicsWindow.FontSize = 16

Window_MouseDown()

Sub Window_MouseDown
GraphicsWindow.Clear()
txt ="Loading..."
y=18
DrawDropShadowText()
pic = Flickr.GetRandomPicture("Bunny")
GraphicsWindow.DrawResizedImage(pic,0,0,w,h)
y=2
txt ="Push Image For Next Bunny!"
DrawDropShadowText()

EndSub

' Function nainoka.....
Sub DrawDropShadowText
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.DrawText(3,y+1,txt)
GraphicsWindow.BrushColor = "White"
GraphicsWindow.DrawText(2,y,txt)
EndSub