VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



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

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

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



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

Circle(X, Y), CirSpd, ClrBlue


Download this snippet    Add to My Saved Code

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

No comments have been posted about This is a screen saver I came up with a few weeks ago. Why not be the first to post a comment about This is a screen saver I came up with a few weeks ago.

Post your comment

Subject:
Message:
0/1000 characters