• Home
 · 
• Graphics
 · 
• A variation of the Code submitted by me earlier. This one produces patterns randomly.

A variation of the Code submitted by me earlier. This one produces patterns randomly.

A variation of the Code submitted by me earlier. This one produces patterns randomly.

Rate A variation of the Code submitted by me earlier. This one produces patterns randomly.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim Cntr As Integer

Private Sub Timer1_Timer()
x1 = Rnd * 10000
y1 = Rnd * 10000
Refresh
For Cntr = 1 To 1000 Step 3
x2 = x1 + Rnd * 1000
y2 = y1 + Rnd * 1000
Line (x1, y1)-(x2, y2)
Next Cntr
ForeColor = RGB(Rnd * 256, Rnd * 256, rnd256)
For Cntr = 1 To 1000 Step 3
x2 = x1 - Rnd * 1000
y2 = y1 - Rnd * 1000
Line (x1, y1)-(x2, y2)

Next Cntr
ForeColor = RGB(Rnd * 256, Rnd * 256, rnd256)
For Cntr = 1 To 1000 Step 3
x2 = x1 - Rnd * 1000
y2 = y1 + Rnd * 1000
Line (x1, y1)-(x2, y2)

Next Cntr
ForeColor = RGB(Rnd * 256, Rnd * 256, rnd256)
For Cntr = 1 To 1000 Step 3
x2 = x1 + Rnd * 1000
y2 = y1 - Rnd * 1000
Line (x1, y1)-(x2, y2)

Next Cntr
ForeColor = RGB(Rnd * 256, Rnd * 256, rnd256)
End Sub

Private Sub Form_load()
Timer1.Interval = 1000
End Sub