Построение объемного графика или объемной фигуры

Private Sub Form_Load()
AutoRedraw = True
Height = Me.Width
BackColor = &H808080
End Sub
 
Private Sub Form_Resize()
Cls
Scale (-300, 300)-(300, -300)
For i = 100 To 1 Step -1
Line (-100 + i, -100 + i)-(100 + i, 100 + i), RGB(125 + i, 125 + i, 125 + i), B 'F
Next i
Line (-100, -100)-(100, 100), &HA0A0A0, B
End Sub

Dim k%, t, j, rr, cc
 
Private Sub Form_Load()
    Me.BorderStyle = 5: k = 3: Timer1.Interval = 10: Me.Width = Me.Height: DrawWidth = 5: Me.Scale (-100, 100)-(100, -100): rr = 40: cc = 1
     autoredraw=True: 
End Sub
 
Sub mn(k%, kf)
 
For r = 1 To rr Step 2
      a0 = 8 * Atn(1) / k
      For i = 1 To k
              a = a + a0
              x = r * Cos(kf + a): y = r * Sin(kf + a)
              X1 = r * Cos(kf + a + a0): Y1 = r * Sin(kf + a + a0)
              ForeColor = RGB(90 * i, 3 * r, cc)
              For j = 0 To 3
                    Line (x + 10 * j - 20, y + 10 * j - 20)-(X1 + 10 * j - 20, Y1 + 10 * j - 20)
              Next
       Next
Next
 
End Sub
 
Private Sub Timer1_Timer()
      Me.Cls
      If t < 360 Then t = t + 0.05 Else t = 0.05
      mn k, t * Atn(1)
End Sub

autoredraw=True