by lotsk8rs (5 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 20th June 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Colored line drawing thing. Looks very cool
'looks best if backgrouind is white
Private Sub Command1_Click()
Dim redr As Integer
Dim grer As Integer
Dim blur As Integer
Dim xx As Integer
Dim yy As Integer
CurrentX = 10000
CurrentY = 5000
ForeColor = RGB(0, 0, 0): x = CurrentX: y = CurrentY
For i = 1 To 250000
redr = Int((255 * Rnd) + 1)
grer = Int((255 * Rnd) + 1)
blur = Int((255 * Rnd) + 1)
yy = Int((2 * Rnd) + 1)
xx = Int((2 * Rnd) + 1)
If xx = 1 Then
x = x + 10
End If
If xx = 2 Then
x = x - 10
End If
If yy = 1 Then
y = y + 10
End If
If yy = 2 Then
y = y - 10
End If
Print "_____"
CurrentX = x: CurrentY = y
ForeColor = RGB(redr, grer, blur)
Next
ForeColor = &HFFFF&
Print "_____"
End Sub