Рекурсия в графике

Option Explicit
 
Dim WithEvents tmrTimer As Timer
Dim DeltaAngle As Single
Dim Distance As Single
 
Private Sub DrawSquare(ByVal X As Single, ByVal Y As Single, ByVal Size As Single, ByVal Angle As Single)
    Dim Dx1 As Single, Dy1 As Single
    Dim Dx2 As Single, Dy2 As Single
    Dim Dc As Single
    
    Dx1 = (-Size / 2) * Cos(Angle) - (-Size / 2) * Sin(Angle)
    Dy1 = (-Size / 2) * Sin(Angle) + (-Size / 2) * Cos(Angle)
    Dx2 = (Size / 2) * Cos(Angle) - (-Size / 2) * Sin(Angle)
    Dy2 = (Size / 2) * Sin(Angle) + (-Size / 2) * Cos(Angle)
    
    Me.Line (Dx1 + X, Dy1 + Y)-(Dx2 + X, Dy2 + Y)
    Me.Line -Step(Dy1 - Dy2, Dx2 - Dx1)
    Me.Line -Step(Dx1 - Dx2, Dy1 - Dy2)
    Me.Line -Step(Dy2 - Dy1, Dx1 - Dx2)
    If Size > 10 Then
        Dc = Abs((Dx1) - (Dy1)) / Size * 255
        Me.ForeColor = RGB(Dc, 0, 255 - Dc)
        DrawSquare Dx1 / 2 + X, Dy1 / 2 + Y, Size / 2 - Distance, Angle + DeltaAngle
        Me.ForeColor = RGB(Dc, 0, 255 - Dc)
        DrawSquare -Dx1 / 2 + X, -Dy1 / 2 + Y, Size / 2 - Distance, Angle + DeltaAngle
        Me.ForeColor = RGB(Dc, 0, 255 - Dc)
        DrawSquare Dx2 / 2 + X, Dy2 / 2 + Y, Size / 2 - Distance, Angle - DeltaAngle
        Me.ForeColor = RGB(Dc, 0, 255 - Dc)
        DrawSquare -Dx2 / 2 + X, -Dy2 / 2 + Y, Size / 2 - Distance, Angle - DeltaAngle
    End If
End Sub
Private Sub Form_Load()
 
    Me.ScaleMode = vbTwips
    Me.Width = Me.Width - Me.ScaleWidth + 6500
    Me.Height = Me.Height - Me.ScaleHeight + 6500
    Me.ScaleMode = vbPixels
    
    Me.BackColor = vbBlack
    Set tmrTimer = Me.Controls.Add("VB.Timer", "tmrTimer")
    tmrTimer.Enabled = True
    tmrTimer.Interval = 40
End Sub
Private Sub tmrTimer_Timer()
    Static S As Long
    S = S + 1
    Distance = Abs(Sin(S / 10)) * 15 + 6
    DeltaAngle = Sin(S / 100) * 3.14159265358979
    Me.Cls
    DrawSquare Me.ScaleWidth / 2, Me.ScaleHeight / 2, Me.ScaleWidth * 1.5, 0
End Sub

Private Sub Form_Paint()
    Me.Cls
    DrawSquare Me.ScaleWidth / 2, Me.ScaleHeight / 2, Me.ScaleWidth * 1.5, 0
End Sub