Нарисовать анимированный телевизор, чтобы на экране была картинка или мурашки - VB

Option Explicit
 
Private TVON As Boolean
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    TVON = False
    DoEvents
    End
End Sub
 
Private Sub Form_Load()
    Dim R As Integer, X As Integer, Y As Integer, C As Integer, H As Integer
    TVON = True
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    For R = 1 To 40
        Me.Circle (156, 80), R, RGB(64, 64, 64)
    Next R
    Line (156, 80)-(106, 10), RGB(0, 0, 0)
    Line (156, 80)-(206, 10), RGB(0, 0, 0)
    Me.Circle (106, 10), 2, RGB(0, 0, 0)
    Me.Circle (206, 10), 2, RGB(0, 0, 0)
    Me.Line (40, 55)-(272, 200), RGB(0, 0, 0), BF
    Me.Line (50, 65)-(230, 190), RGB(128, 128, 128), BF
    Me.Line (50, 200)-(70, 203), RGB(0, 0, 0), BF
    Me.Line (242, 200)-(262, 203), RGB(0, 0, 0), BF
    For Y = 65 To 115
        For X = 240 To 265 Step 2
            Me.PSet (X + Y Mod 2, Y), RGB(128, 128, 128)
        Next X
    Next Y
    For Y = 135 To 165 Step 25
        For X = 245 To 260 Step 15
            Me.Circle (X, Y), 2, RGB(128, 128, 128)
        Next X
    Next Y
    For R = 1 To 7
        Me.Circle (253, 180), R, RGB(128, 128, 128)
    Next R
    Me.Show
    Do While TVON
        C = Int(Rnd * 256)
        H = Rnd * 15
        Y = Rnd * (125 - H) + 65
        Me.Line (50, Y)-(230, Y + H), RGB(C, C, C), BF
        DoEvents
    Loop
End Sub