بهترين سورسهاي ويژوال بيسيك 6

[VisualBasic6Love]

يك تايمر به فرم اضافه كنيد و كدهاي زير رو در قسمت جنرال وارد كنيد:

کد:

'Example By : VisualBasic6Love
Private Sub Form_Load()
Form1.BackColor = &H0&
Form1.WindowState = 2
Timer1.Interval = 75
End Sub
Private Sub Timer1_Timer()
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)
End Sub