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

Option Explicit
 
Dim r1  As Integer
Dim r   As Integer
Dim pi  As Single
Dim x   As Single
Dim y   As Single
 
 
Private Sub kaplya()
    Dim i As Single
    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 Command1_Click()
    Dim n As Integer
    Dim j As Integer
    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

Результат.Text = Val(Число1.Text) + Val(Число2.Text)

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

'# Не люблю объявленных переменных в одной строке.
Dim r1  As Integer
Dim r   As Integer
Dim pi  As Single
Dim x   As Single
Dim y   As Single
 
'# Эта переменная не была объявлена.
    Dim i As Single
 
'# Эти переменные не были объявлены.
    Dim n As Integer
    Dim j As Integer

Option Base 0
Dim Chislo_periodov As Single
 
Sub TwelveNodes()
If ThisDocument.Shapes.Count > 0 Then ThisDocument.Shapes(1).Delete 'удаление фигуры 1
If ThisDocument.Shapes.Count > 0 Then ThisDocument.Shapes(1).Delete 'удаление фигуры 1 (оставшейся)
' Макрос записан 30.06.2007 User; запуск в документе Word: альт-D.
Const pi = 3.1415926535898
Dim k As Integer: k = 49  'количество приближающих дугу циклоиды сегментов
If k < 1 Then Exit Sub
Dim ShiftX: ShiftX = 50             'сдвиг (точек) вправо от угла листа
Dim ShiftY: ShiftY = 10             'сдвиг (точек) вниз от угла листа
Dim fi As Single                    'полярная коодината (радиан)
Dim A As Integer                    'радиус неподвижного круга
Dim x() As Single, y() As Single    'Декартовы коорд. точек (x: вправо, y: вниз от угла)
Dim Nn As Single, N As Single, nS As String, begpoint, finpoint
 
If Chislo_periodov <= 0 Then Chislo_periodov = 32 '31.6667
nS = InputBox(vbLf & "Число периодов:", "Например: 42", Chislo_periodov)
If IsNumeric(nS) = False Then Exit Sub
N = CSng(nS) 'Val(nS)
    If N > 333 Then _
    If MsgBox(N & " требует долгого ожидания, боитесь?", vbYesNo) = vbYes Then Exit Sub
Chislo_periodov = N
If N < 0.01 Then Chislo_periodov = 55: Exit Sub
                            ReDim x(k * N - 1)
                            ReDim y(k * N - 1)
fi = 8 * pi / N / k
A = 43 * N
'A = 31 * N
 
For Nn = 0 To k * N - 1
x(Nn) = (A * Cos(Nn * fi) + A * Sin(A * Nn * fi)) / 3 + ShiftX + (1 - Cos(Nn * fi / 6)) * Nn * Cos(Nn * fi)
y(Nn) = (A * Sin(Nn * fi) - A * Cos(A * Nn * fi)) / 3 + ShiftY + (1 - Cos(Nn * fi / 6)) * Nn * Sin(Nn * fi)
'    If Nn = 0 Then InputBox vbCr & vbCr & vbCr & "начальная точка:", "(X; Y)", x(0) & ",  " & y(0)
Next Nn
 
With ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, x(0), y(0))
    For Nn = 1 To k * N - 1
    .AddNodes msoSegmentCurve, msoEditingAuto, x(Nn), y(Nn)
    Next Nn
'    .AddNodes msoSegmentCurve, msoEditingAuto, x(0), y(0)
    .ConvertToShape.Select
End With
 
begpoint = Array(x(0), y(0))                'начало полилинии
finpoint = Array(x(k * N - 1), y(k * N - 1)) 'конец полилинии
 
With ActiveDocument.Shapes
    .AddPolyline Array(begpoint, finpoint)
    .SelectAll
'    .Range(.Item(1), .Item(2)).Group 'группировка фигур 1 и 2
    Selection.ShapeRange.Group.Select 'группировка выделенных фигур
End With
'
With Selection.ShapeRange
    .Width = 240
    .Height = 240
    .Left = CentimetersToPoints(0)
    .Top = CentimetersToPoints(0)
End With
        Chislo_periodov = Chislo_periodov - 1.5
        ActiveDocument.UndoClear    'это очистка списка откатов (он чудовищно велик)
End Sub