• Home
 · 
• Graphics
 · 
• This will randomly change single pixel's color in a form! Awsome for a backround or screensaver!!

This will randomly change single pixel's color in a form! Awsome for a backround or screensaver!!

This will randomly change single pixel's color in a form! Awsome for a backround or screensaver!!

Rate This will randomly change single pixel's color in a form! Awsome for a backround or screensaver!!

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim red As Integer 'declare all varibles
Dim blue As Integer
Dim green As Integer
Dim randomx As Integer
Dim randomy As Integer
Dim x As Integer
Do Until x = 999 ' change the 999 to whatever you want to slow down or speed up the pixel change
x = x + 1
red = 255 * Rnd 'randomize red color
blue = 255 * Rnd 'randomize blue color
green = 255 * Rnd 'randomize green color
randomx = Rnd * ScaleWidth 'randomize x value
randomy = Rnd * ScaleWidth 'randomize y value
PSet (randomx, randomy), RGB(red, green, blue) 'set pixel color at (randomx, randomy) to RGB(red, green, blue)
Loop
End Sub


Private Sub Timer1_Timer()
'Form1.BackColor = &H0& 'these things look awsome if you want to use them.....
'Form1.WindowState = 2
Call PixelSet
End Sub