Создать снеговика с анимацией - VB

Option Explicit
 
Private Animate As Boolean
 
Private Sub Form_Load()
    Dim R As Integer
    Dim T As Single
    Animate = True
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    For R = 1 To 25
        Me.Circle (150, 30), R, vbWhite
    Next R
    Me.Line (150, 90)-(90, 50), vbBlack
    Me.Line (85, 60)-(110, 64), vbBlack
    
    Me.Line (150, 90)-(210, 50), vbBlack
    Me.Line (215, 60)-(190, 64), vbBlack
    For R = 1 To 37
        Me.Circle (150, 90), R, vbWhite
    Next R
    For R = 1 To 45
        Me.Circle (150, 165), R, vbWhite
    Next R
    For R = 1 To 6
        Me.Circle (150, 35), R, vbRed
    Next R
    For R = 1 To 3
        Me.Circle (140, 25), R, vbBlack
        Me.Circle (160, 25), R, vbBlack
    Next R
    T = Timer + 2
    Me.Tag = "*"
    Me.Show
    Do While Animate
        If Timer > T Then
            If Me.Tag = "*" Then
                Me.Tag = ""
                T = Timer + 0.5
                Me.Line (137, 22)-(143, 28), vbWhite, BF
                Me.Line (137, 25)-(143, 25), vbBlack
            Else
                Me.Tag = "*"
                T = Timer + 2
                Me.Line (137, 22)-(143, 28), vbWhite, BF
                For R = 1 To 3
                    Me.Circle (140, 25), R, vbBlack
                Next R
            End If
        End If
        DoEvents
    Loop
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Animate = True
    DoEvents
    End
End Sub