by Anthony graves (1 Submission)
Category: Graphics
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Thu 24th May 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
Y = Val(Form1.ScaleWidth) / 2
CirSpd = Val(Label1.caption) + 3
ClrBlue = RGB( 0, 0, Int(RND() * 255))
Circle(X, Y), CirSpd, ClrBlue