Public Class SpiralGraph
    Dim x1, x2, y1, y2 As Integer
    Dim Graphics1 As Graphics
    Dim MyPen As Pen
    Dim Count2 As Integer
    Dim ChangeColor As Integer
    Dim ColorMult As Integer
    Dim MyColors As Color
    Dim r, g, b As Integer
    Dim v1 As Integer
    Dim Speed
    Dim noCir As Integer
    Dim CC As Integer

    Dim Count(4) As Double
    Dim AddTo(4) As Double
    Dim MultX(4), MultY(4) As Integer
    Dim Sx(4), Sy(4) As Integer

    Dim Cx, Cy As Integer
    Dim Edit
    '-------------------------Draw-------------------------

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For v1 = 0 To Speed
            Count2 = Count2 + 1
            If Count2 > ChangeColor * ColorMult Then
                Count2 = 0
                r = Math.Floor(Rnd() * 255)
                g = Math.Floor(Rnd() * 255)
                b = Math.Floor(Rnd() * 255)
                MyColors = Color.FromArgb(255, r, g, b)
                MyPen = New Pen(MyColors, 1)
            End If
            Cx = 270 : Cy = 270

            For CC = 0 To noCir
                Count(CC) = Count(CC) + AddTo(CC) / (MultX(CC) + MultY(CC)) / 2
                If Count(CC) > 10000000 Then : Count(CC) = Count(CC) - 10000000 : End If
                x2 = Math.Sin(Count(CC) * MultX(CC)) * Sx(CC) + Cx
                y2 = Math.Cos(Count(CC) * MultY(CC)) * Sy(CC) + Cy
                Cx = x2 : Cy = y2

            Next
            Graphics1.DrawLine(MyPen, x1, y1, x2, y2)
            x1 = x2 : y1 = y2
        Next
    End Sub
    '-------------------------Init----------------------------------
    Private Sub SpiralGraph_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        x1 = 0 : x2 = 0 : y1 = 0 : y2 = 0
        CC = 0
        x1 = Math.Sin(Count(CC) * MultX(CC)) * Sx(CC) + 270
        y1 = Math.Cos(Count(CC) * MultY(CC)) * Sy(CC) + 270
        Graphics1 = PictureBox1.CreateGraphics
        MyColors = Color.Black
        MyPen = New Pen(MyColors, 1)
        MyPen.DashStyle = Drawing2D.DashStyle.Solid
        ChangeColor = 40
        Speed = 1
        ColorMult = 1
        For CC = 0 To 3
            Sx(CC) = 70 : Sy(CC) = 70
            Count(CC) = 0
            AddTo(CC) = 1.7
            MultX(CC) = 1 : MultY(CC) = 1
        Next

    End Sub
    ' ---------------------------Change Step----------------------------------
    Private Sub _Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        AddTo(Edit) = HScrollBar1.Value * 2 * Math.PI / 100
    End Sub

    '---------------------------Chang Color--------------------------
    Private Sub HScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar2.Scroll
        ChangeColor = HScrollBar2.Value
    End Sub
    ' ----------------------------Change Speed-------------------------
    Private Sub HScrollBar3_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar3.Scroll
        Speed = HScrollBar3.Value
    End Sub
    ' ------------------------x Mult---------------------
    Private Sub HScrollBar4_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar4.Scroll
        MultX(Edit) = HScrollBar4.Value + 1
    End Sub
    '--------------------------y Mult-------------------------
    Private Sub HScrollBar5_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar5.Scroll
        MultY(Edit) = HScrollBar5.Value + 1
    End Sub
    ' -------------------------CLEAR-----------------
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Graphics1.Clear(Color.White)
    End Sub
    '-------------------------FineSteps-----------------------------------
    Private Sub HScrollBar6_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar6.Scroll
        AddTo(Edit) = AddTo(Edit) + HScrollBar6.Value * 2 * Math.PI / 10000
    End Sub
    '---------------Speed timer adjust-----------------------------------
    Private Sub HScrollBar7_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar7.Scroll
        Timer1.Interval = HScrollBar7.Value + 1
    End Sub
    ' -----------------------Color change Mult------------------------------
    Private Sub HScrollBar8_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar8.Scroll
        ColorMult = HScrollBar8.Value + 1
    End Sub
    '------------------------------Stop/Start--------------------------------
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "Stop" Then
            Timer1.Enabled = False : Button2.Text = "Start"
        Else
            Timer1.Enabled = True : Button2.Text = "Stop"
        End If
    End Sub
    '-----------------------Size----------------------------

    Private Sub HScrollBar9_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar9.Scroll
        Sx(Edit) = HScrollBar9.Value : Sy(Edit) = Sx(Edit)
    End Sub
    ' --------------------------------INFO----------------------
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MessageBox.Show("By Tim Salazar: InsectPhotos.Net")
    End Sub
    ' -----------------------Number of Circles--------------------
    Private Sub HScrollBar10_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar10.Scroll
        noCir = HScrollBar10.Value
    End Sub

    Private Sub HScrollBar11_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar11.Scroll
        Edit = HScrollBar11.Value
        HScrollBar1.Value = AddTo(Edit)
        HScrollBar9.Value = Sx(Edit) : Sy(Edit) = Sx(Edit)
        HScrollBar4.Value = MultX(Edit)
        HScrollBar5.Value = MultY(Edit)
    End Sub
End Class