Как рисовать узоры в Visual Basic 6.0?

Option Explicit
 
Dim WithEvents tmr As Timer
Dim Zoom        As Single
Dim numOfTurn   As Long
Dim numOfSeg    As Long
 
Const PI = 3.14159265358979
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    Select Case KeyCode
    Case vbKeyUp
        numOfTurn = numOfTurn + 1
    Case vbKeyDown
        numOfTurn = numOfTurn - 1
        If numOfTurn < 1 Then numOfTurn = 1
    Case vbKeyRight
        numOfSeg = numOfSeg + 1
        If numOfSeg > 2048 Then numOfSeg = 2048
    Case vbKeyLeft
        numOfSeg = numOfSeg - 1
        If numOfSeg < 4 Then numOfSeg = 4
    End Select
    
End Sub
 
Private Sub Form_Load()
    Me.Width = 500 * Screen.TwipsPerPixelX + (Me.Width - Me.ScaleWidth)
    Me.Height = 500 * Screen.TwipsPerPixelY + (Me.Height - Me.ScaleHeight)
    Me.Scale (-1, 1)-(1, -1)
    Me.AutoRedraw = True
    Me.DrawWidth = 13
    Me.BackColor = 0
    
    Set tmr = Me.Controls.Add("VB.Timer", "tmr")
    tmr.Interval = 32
    Zoom = 0.6
    numOfTurn = 32: numOfSeg = 1024
    
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static oy As Single
    Dim dy As Single
    
    dy = Y - oy
    
    Select Case Button
    Case vbMiddleButton
        Zoom = Zoom + dy
        If Zoom < 0.6 Then Zoom = 0.6
    End Select
    oy = Y
End Sub
 
Private Sub tmr_Timer()
    Dim X As Single:    Dim Y As Single:    Dim Z As Single:    Dim W As Single
    Dim ph1 As Single:  Dim ph2 As Single:  Dim col As Single
    Dim seg As Long:    Dim c1 As Long:     Dim c2 As Long
    Dim r1 As Single:   Dim r2 As Single:   Dim bg As Long
    Dim ox  As Single:  Dim oy As Single
    
    Static frame As Long
    
    Me.Cls
 
    Dim phaseInc1   As Single
    Dim phaseInc2   As Single
    Dim pix         As Long
    
    phaseInc2 = PI * 2 * numOfTurn / numOfSeg
    phaseInc1 = PI * 2 / numOfSeg
    
    ph2 = frame / 10:   ph1 = PI * 2:   c1 = numOfSeg \ 2 + 1: c2 = c1 + numOfSeg \ 4 + 1
    bg = True
    
    For seg = 0 To numOfSeg + 2
    
        Select Case seg
        Case c1
            ph1 = PI * 2: ph2 = frame / 10
            phaseInc1 = -phaseInc1: phaseInc2 = -phaseInc2
            bg = True
        Case c2
            ph1 = PI: ph2 = frame / 10 - PI * numOfTurn
            phaseInc1 = -phaseInc1: phaseInc2 = -phaseInc2
            bg = True
        End Select
        
        r1 = (Sin(ph1) + 1) / 2 + 0.1:  r2 = Cos(ph1)
        
        X = Cos(ph2) * r1:  Z = Sin(ph2) * r1 - Zoom:    Y = r2
        
        W = (Z + 2)
        
        If W > 0.5 Then
            
            X = X / W:  Y = Y / W: col = (1.1 - Abs(r1))
            
            If Not bg Then
                Me.Line -(X, Y), RGB(col * 128, col * 200 + 30, 0)
            Else
                Me.PSet (X, Y), RGB(col * 128, col * 200 + 30, 0)
            End If
            
            bg = False
            
        Else:   bg = True
        End If
        
        ph1 = ph1 + phaseInc1:  ph2 = ph2 + phaseInc2
        
    Next
 
    frame = frame + 3
    Me.Refresh
    
End Sub

Option Explicit
Dim x!, y!, r!, p!, i&
Private Sub Form_Load()
    Scale (-320, 240)-(320, -240)
    Call f(0, 0, 100, 4)
End Sub
 
Sub f(x, y, r, p)
 
   If p > 0 Then
      Circle (x, y), r
      Call f(x + r, y, r / 2, p - 1)
      Call f(x, y - r, r / 2, p - 1)
      Call f(x - r, y, r / 2, p - 1)
      Call f(x, y + r, r / 2, p - 1)
   End If
End Sub

Option Explicit
Dim p!, n!
Dim x1!, y1!
 
Private Sub Form_Load()
p = 5
n = 10
Scale (0, 0)-(640, 480)
PSet (480, 80)
Call A(p)
End Sub
 
Sub A(i!)
   If i > 0 Then
      Call D(i - 1)
      Call ABC(CurrentX - n, CurrentY)
      Call A(i - 1)
      Call ABC(CurrentX, CurrentY + n)
      Call A(i - 1)
      Call ABC(CurrentX + n, CurrentY)
      Call B(i - 1)
   End If
End Sub
 
Sub ABC(x2!, y2!)
    x1 = CurrentX
    y1 = CurrentY
    Line (x1, y1)-(x2, y2)
End Sub
 
Sub B(i!)
   If i > 0 Then
      Call C(i - 1)
      Call ABC(CurrentX, CurrentY - n)
      Call B(i - 1)
      Call ABC(CurrentX + n, CurrentY)
      Call B(i - 1)
      Call ABC(CurrentX, CurrentY + n)
      Call A(i - 1)
   End If
End Sub
 
Sub C(i!)
   If i > 0 Then
      Call B(i - 1)
      Call ABC(CurrentX + n, CurrentY)
      Call C(i - 1)
      Call ABC(CurrentX, CurrentY - n)
      Call C(i - 1)
      Call ABC(CurrentX - n, CurrentY)
      Call D(i - 1)
   End If
End Sub
 
Sub D(i!)
   If i > 0 Then
      Call A(i - 1)
      Call ABC(CurrentX, CurrentY + n)
      Call D(i - 1)
      Call ABC(CurrentX - n, CurrentY)
      Call D(i - 1)
      Call ABC(CurrentX, CurrentY - n)
      Call C(i - 1)
   End If
End Sub