Как рисовать узоры в Visual Basic 6.0?

Dim r1 As Integer, r As Integer, pi As Single, x As Single, y As Single
 
 Private Sub Комманда1_Click()
 Cls
 pi = 4 * Atn(1)
 DrawWidth = 2: n = 30
 For j = 1 To n
 x = Rnd * 500 + 150: y = Rnd * 300 + 20
 r1 = 9 * (n - j) + 10: kaplya
 Next j
 End Sub
 Private Sub kaplya()
 For i = 0 To pi / 2 Step 0.001
 r = r1 * Sin(i) ^ 3
 Line (r * Cos(i) + x - i * 70, r * Sin(i) + y)-(-r * Cos(-i) _
 + x - i * 70, -r * Sin(-i) + y), _
 RGB(Abs(r), _
 Abs(255 - i * 220), _
 Abs(255 - i * 320))
 Next i
 End Sub
 Private Sub Комманда2_Click()
 End
 End Sub

Dim A, fi
Dim Nn, k, N
Dim X(), y()
Dim x0, y0
Sub TwelveNodes()
 
ReDim X(k * N - 1)
ReDim y(k * N - 1)
 
A = 43 * N
 
For Nn = 0 To k * N - 1
X(Nn) = (A * Sin(A * Nn * fi)) / 3 + (1 - Cos(Nn * fi / 6)) * Nn * Cos(Nn * fi)
y(Nn) = (-A * Cos(A * Nn * fi)) / 3 + (1 - Cos(Nn * fi / 6)) * Nn * Sin(Nn * fi)
Next Nn
 
 Nn = 0
 'Timer1.Enabled = True
 
    'For Nn = 1 To k * N - 1
    'Me.Line (x0 + x(Nn - 1), y0 + y(Nn - 1))-(x0 + x(Nn), y0 + y(Nn)), RGB(0, Nn * 255 / (k * N), (k * N - 1 - Nn) * 255 / (k * N))
    'Next Nn
 
End Sub
 
Private Sub Draw_3d()
Dim X
Randomize
Z1 = Int(100 * Rnd)
 For X = 0 To 200
        Draw3dTxt 300 + X - X1, X - Y1, " Sasha Smirnov", X, X, X, Z1
 Next X
End Sub
 
Private Sub Draw3dTxt(ByVal start_x As Single, ByVal start_y As Single, ByVal txt As String, r, g, b, Z)
    CurrentX = start_x
    CurrentY = start_y
    Font.Size = 48
        ForeColor = RGB(r + Z, g + Z, b + Z)
        Print txt
End Sub
 
Private Sub Form_Activate()
Timer1.Enabled = False
Timer1.Interval = 1
AutoRedraw = True
WindowState = 2
Print ".............Sasha_Smirnov "
End Sub
 
Private Sub Form_Click()
Dim Pi
Cls
 
Draw_3d ' добавб строчку вызова процедуры
Me.Print ".............Sasha_Smirnov "
x0 = Me.Width / 2: y0 = Me.Height / 2
Pi = 4 * Atn(1)
k = Int(Rnd * 5) + 47
N = 54 'Int(Rnd * 10) + 50
fi = 8 * Pi / N / k
TwelveNodes
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
 If Nn < k * N - 10 Then
 
cl = Nn * 255 / (k * N)
 
 For i = Nn + 1 To Nn + 10
    Me.Line (x0 + X(i - 1), y0 + y(i - 1))-(x0 + X(i), y0 + y(i)), RGB(cl, 0, 255 - cl)
Next i
   Nn = Nn + 10
Else
    Timer1.Enabled = False
 End If
End Sub