Private Sub PictureBox1_paint(ByVal sender As System.Object, ByVal e As _
    System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim V As Integer = 3
        Dim D As Integer
        Dim A As Integer
        Dim B As Integer
        Dim X As Integer
        Dim H As Integer
        Dim Y As Integer
        Dim T As Integer
        Dim g As Graphics = e.Graphics
 
 
        For D = 134 To 41 Step -93
            For A = 40 To 314 Step 87
                For B = 0 To 6.28 Step 2 * System.Math.PI / V
                    For H = 0 To 35 Step 5
                        T = B + 2 * System.Math.PI / V
 
 
                        X = (40 - H) * System.Math.Sin(B)
                        Y = (40 - H) * System.Math.Cos(B)
 
                        g.DrawLine(Pens.Blue, H * System.Math.Sin(T - X)), (H * _
                          System.Math.Cos(T - Y))
                        V = V + 1
                    Next
                Next
            Next
        Next
    End Sub