Как правильно перевести код с VB6, рисующий разноцветную спираль - Visual Basic .NET

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

Здравствуйте!

Прошу помощи. Не знаю, как правильно перевести код с VB6, рисующий разноцветную спираль Пытаюсь создать простую картинку "kap2.jpg", третья сверху http://arbuz.uz/x_galerea1.html Авторский код, копирую:

Dim r1 As Integer, r As Integer, pi As Single, x As Single, y As Single
 Dim n As Integer, j As Byte, i As Single
 
 Option Explicit
 Private Sub Комманда1_Click()
 Cls
 pi = 4 * Atn(1)
 DrawWidth = 2: n = 1
 For j = 1 To n
 x = 550: y = 220
 r1 = 10
 kaplya
 Next j
 End Sub
 Private Sub kaplya()
 For i = -pi To pi * 50 Step 0.0015
 r = r1 + i * 2.5 + 0.1 * i * Cos(55 * i) ^ 6
 Line (r * Cos(i) + x - i * 1, r * Sin(i) + y)- _
 (r * Cos(i) + x - i * 1.2, r * Sin(i) + y), _
 RGB(Abs(r), _
 Abs(255 - Cos(i / 2) * 420), _
 Abs(Cos(i * 4) * 250))
 Next i
 End Sub
 Private Sub Комманда2_Click()
 End
 End Sub

Мой код, ниже

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(600, 400)
    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 = 1
 
        x = 480 : y = 230
        r1 = 1

        Dim p As New Pen(Color.White, 1)
 
        For i = -pi To pi * 30 Step 0.001
            r = r1 + i * 2.5 + 0.1 * i * Math.Cos(55 * i) ^ 6
 
            p.Color = Color.FromArgb(Math.Min((Math.Abs(r)), 255), _
                                                        Math.Min(Math.Abs(255 - Math.Cos(i / 2) * 420), 255), _
                                                        Math.Min(Math.Abs(Math.Cos(i * 4) * 250), 255))

            e.Graphics.DrawLine(p,
                                New Point(r * Math.Cos(i) + x - i * 1, r * Math.Sin(i) + y), _
                                New Point(-r * Math.Cos(-i) + x - i * 1, -r * Math.Sin(-i) + y))
 
        Next i
 
    End Sub
 
End Class

Решение задачи: «Как правильно перевести код с VB6, рисующий разноцветную спираль»

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

                            Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
    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
        Dim n As Integer, j As Byte, i As Single
 
        pi = 4 * Math.Atan(1)
        Dim DrawWidth As Integer = 2
        n = 1
        For j = 1 To n
            x = 550 : y = 220
            r1 = 10
 
            For i = -pi To pi * 50 Step 0.0015
                r = r1 + i * 2.5 + 0.1 * i * Math.Cos(55 * i) ^ 6
 
                e.Graphics.DrawLine(New Pen(Color.FromArgb(Math.Min(Math.Abs(r), 255), _
                                                           Math.Min(Math.Abs(255 - Math.Cos(i / 2) * 420), 255), _
                                                           Math.Min(Math.Abs(Math.Cos(i * 4) * 250), 255)), _
                                            1), _
                                    New Point(r * Math.Cos(i) + x - i * 1, r * Math.Sin(i) + y), _
                                    New Point(r * Math.Cos(i) + x - i * 1.2, r * Math.Sin(i) + y))
 
            Next i
        Next j
    End Sub
End Class
                        