• Home
 · 
• Graphics
 · 
• Produces beautiful pattern. Can be modified for many other effects.

Produces beautiful pattern. Can be modified for many other effects.

Produces beautiful pattern. Can be modified for many other effects.

Rate Produces beautiful pattern. Can be modified for many other effects.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim Cntr As Integer

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

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
PSet (x1, y1)
End Sub