by S.K.Dogra (4 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 12th March 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Produces beautiful pattern. Can be modified for many other effects.
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
No comments have been posted about Produces beautiful pattern. Can be modified for many other effects.. Why not be the first to post a comment about Produces beautiful pattern. Can be modified for many other effects..