Основа для скринсейвера

Const PI = 3.14154
Const a = 0.5
Const n = 1.25
Const r1 = 2#
Const r2 = 0.15
Private Sub Form_Load()
    ScaleMode = 3: AutoRedraw = False
    Scale (-5, 0.4)-(8, -0.3)
    DrawWidth = 50
    Randomize
    Show
    Work
End Sub
Function Col(ByVal x As Double, ByVal y As Double, z As Double, ByVal d As Long) As Long
    Col = RGB(Abs(x * 2 \ d), Abs(z * d \ 3), Abs(y * 2 * d)) + 40 * x * y
End Function
Private Sub Work()
Dim u As Double, v As Double ' u =(0...0.8*pi), v =(0...0.2*pi)
Dim x As Double, y As Double, z As Double ', i As Double, j As Double
Dim dCol As Integer
    dCol = 50
    For u = 0 To PI * 200 Step 1
         If u Mod 10 = 0 Then dCol = dCol + 1: If dCol > 100 Then dCol = 50
         For v = 0 To PI * 8 Step 0.001
             x = r2 * Cos(v) * Cos(u) + r1 * Cos(u) + (1 + a * Cos(n * u))
             y = 2.5 * (r2 * Sin(v) + a * Sin(n * u))
             z = r2 * Cos(v) * Sin(u) + ri * Sin(u) * (1 + a * Cos(n * u))
             PSet (x * y + v / 4, z * y), Col(x, y, z, 100)
             PSet (x * y + v / 4, z * x), Col(u, v, u, dCol)
             PSet (x * y + v / 4, x * y), Col(v, u, v, 33)
             DoEvents
         Next v
         Cls
    Next u
    Work
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub