by Morten D Carlsson (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 26th September 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
A funny little thing to do. Many cool colours
VBcoders
' set the interval to 75
' Add the this code into the Timer(tmrTime)
' ***********
Dim x,y
' ***********
R = rnd * 255
G = rnd * 255
B = rnd * 255
' ***********
x = Rnd * Me.ScaleHeight
y = Rnd * Me.ScaleWidth
' ***********
Me.DrawWidth = Rnd * 69
' ***********
Me.Pset = (x,y), RGB(R,G,B)
' ***********
' This is made by Morten D Carlsson
' I am on the school now.
' send my an mail "[email protected]
' oops... Bye
