• Home
 · 
• Graphics
 · 
• This is a screen saver I came up with a few weeks ago

This is a screen saver I came up with a few weeks ago

This is a screen saver I came up with a few weeks ago

API Declarations


'Create a timer and make the interval - "1"
'Put the code in the Timer



Rate This is a screen saver I came up with a few weeks ago

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Y = Val(Form1.ScaleWidth) / 2
CirSpd = Val(Label1.caption) + 3
ClrBlue = RGB( 0, 0, Int(RND() * 255))

Circle(X, Y), CirSpd, ClrBlue