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

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(700, 500)
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim r1 As Integer, r As Integer, pi As Single, x As Single, y As Single
 
        pi = 4 * Math.Atan(1)
 
        Dim DrawWidth As Integer = 2
        Dim n As Integer = 30
 
        For j = 1 To n
            x = Rnd() * 500 + 150
            y = Rnd() * 300 + 20
            r1 = 9 * (n - j) + 10
 
            Dim p As New Pen(Color.White, 1)
 
            For i = 0 To pi / 2 Step 0.001
                r = r1 * Math.Sin(i) ^ 3
                p.Color = Color.FromArgb(Math.Min(Math.Abs(r), 255), _
                                         Math.Min(Math.Abs(255 - i * 220), 255), _
                                         Math.Min(Math.Abs(255 - i * 320), 255))
                e.Graphics.DrawLine(p, _
                                    New Point(r * Math.Cos(i) + x - i * 70, r * Math.Sin(i) + y), _
                                    New Point(-r * Math.Cos(-i) + x - i * 70, -r * Math.Sin(-i) + y))
 
            Next i
        Next j
    End Sub
 
End Class