Использование цикла for для графики - VB

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

Приветствую. Дали задание изобразить рупор и что-то подобное на четырехгранную звезду методом circle с использованием оператора for. (В прикрепленных файлах). С рупором методом Тыкова получилось родить такой код:

Private Sub Picture1_Paint()
Dim i, s As Integer
Const x = 1200
Const y = 2000
Const x1 = 1800
Const y1 = 3000
For i = 1 To 2000 Step 40
s = x + i + i
d = y + 1
f = i + 1
Picture1.Circle (s, d), f, vbRed, , , 1.8
Next i
End Sub

Я вроде и понимаю, что все абсолютно так же, но когда начинаю подстраивать этот код для второй пикчи, получается только выкидыш какой-то. Благодарствую.

Решение задачи: «Использование цикла for для графики»

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

                            Private Sub Command1_Click()
    Picture1.Scale (-100, 100)-(100, -100)
    Picture1.AutoRedraw = True
    Picture1.Cls
    For i = -50 To 50 Step 2
       Picture1.Circle (i, 0), (i + 51) / 2, vbRed, , , 1.8
    Next i
End Sub
 
 
Private Sub Command2_Click()
    Picture1.Scale (-100, 100)-(100, -100)
    Picture1.AutoRedraw = True
    Picture1.Cls
    For i = -100 To 100 Step 2
       Picture1.Circle (i, i), (101 - Abs(i)) / 5, vbRed
       Picture1.Circle (-i, i), (101 - Abs(i)) / 5, vbRed
    Next i
End Sub
                        