Рисование фигуры в форме ракушки - VB

Формулировка задачи:

Необходимо сделать закручивание в форме ракушки и одинаковое расстояние между ее последовательными элементами.Пожалуйста помогите доработать код:

Public angle, radius, temp_x, temp_y As Integer
Public i, j As Integer
 
Private Sub Timer1_Timer()
Timer1.Enabled = True
center_x = 2530
center_y = 2280
 
 radius = (30 + j * 30)
    angle = (j * (6)) + 3.14 / 1000
    temp_x = center_x + radius * Sin(angle)
    temp_y = center_y + radius * Cos(angle)
    Circle (temp_x, temp_y), 50, vbBlack
    If (j = 40) Then
        Timer1.Enabled = False
          Else
        j = j + 1.1
    End If
 
End Sub

Решение задачи: «Рисование фигуры в форме ракушки»

textual
                            Листинг программы 
                        

                            Dim angle As Double, radius As Double, temp_x As Double, temp_y As Double
Dim i As Double, j As Double
Dim center_x  As Double
Dim center_y  As Double
Const Pi = 3.14
Private Sub Command1_Click()
center_x = Me.Width \ 2
center_y = Me.Height \ 2
   For j = 1 To 60 Step 0.5
    radius = j * 30
    angle = j / 6
    temp_x = center_x + radius * Sin(angle)
    temp_y = center_y + radius * Cos(angle)
    Circle (temp_x, temp_y), 50 + j * 10, vbBlue
       DoEvents
       For i = 1 To 100000
       Next i
    Next j
End Sub
                        