Построение динамических изображений

Private Type Ripple
    X As Long
    Y As Long
    i As Long
End Type
Private Const Speed As Single = 5
Private Const MaxRadius As Long = 150
Dim WithEvents tmrTimer As Timer
Dim Wav() As Ripple
Private Sub Iteration()
    Dim n As Long, r As Long, c As Long, m As Long
    Me.Cls
    If Not Not Wav Then
        Do Until n > UBound(Wav)
            Wav(n).i = Wav(n).i + 1
            r = Wav(n).i * Speed
            If r > MaxRadius Then
                For r = n To UBound(Wav) - 1
                    Wav(r) = Wav(r + 1)
                Next
                If UBound(Wav) = 0 Then
                    Erase Wav: Exit Do
                Else
                    ReDim Preserve Wav(UBound(Wav) - 1)
                End If
            Else
                m = 255 - r / MaxRadius * 255
                c = RGB(m, m, m)
                Me.Circle (Wav(n).X, Wav(n).Y), r, c
                n = n + 1
            End If
        Loop
    End If
    Me.Refresh
End Sub
Private Sub CreateWav(ByVal X As Long, ByVal Y As Long)
    Dim i As Long
    If Not Not Wav Then i = UBound(Wav) + 1
    ReDim Preserve Wav(i)
    Wav(i).X = X
    Wav(i).Y = Y
End Sub
Private Sub Form_Load()
    Me.AutoRedraw = True: Me.ScaleMode = vbPixels: Me.BackColor = vbBlack
    Set tmrTimer = Me.Controls.Add("VB.Timer", "tmrTimer")
    tmrTimer.Enabled = True: tmrTimer.Interval = 32
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CreateWav X, Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then CreateWav X, Y
End Sub
Private Sub tmrTimer_Timer()
    Iteration
End Sub

Dim o#, r%, h%, h1%, c%, e%, a%
 
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Timer1.Enabled = Not (Timer1.Enabled)
Else
a = IIf(a < 4, a + 1, 0)
End If
End Sub
 
Private Sub Form_Resize()
AutoRedraw = True: Width = Height: BackColor = 0:
Timer1.Interval = 1
o = Height / 2:
r = 0: h = 10: h1 = 1
c = 10: e = 4: a = 0
Me.DrawWidth = h1
End Sub
 
Private Sub Timer1_Timer()
If a = 0 Then Circle (o + a * r * Cos(r * 3 / e), o + a * r * Sin(r * 3 / e)), r, 0
r = r + h
Circle (o + a * r * Cos(r * 3 / e), o + a * r * Sin(r * 3 / e)), r, QBColor(c)
If r > o / 2 Then
Cls
c = Int(Rnd * 5) + 10
e = IIf(e < 100, e + 2.5, 4)
r = 0
End If
End Sub