' add eyelids
'GraphicsWindow.PenColor = "transparent
GraphicsWindow.PenColor = "snow
GraphicsWindow.BrushColor = "OliveDrab
For i = 1 To 2
eyelids[i] = Shapes.AddEllipse(50, 50)
Shapes.move(eyelids[i], 0, 0)
Shapes.animate(eyelids[i], 552 + (i - 1) * 57, 175, 2000)
EndFor
Timer.Tick = Blink
Timer.Interval = 500
Sub Blink
t = t + 1
If Math.Remainder(t, 6) = 1 Then
For i = 1 To 2
Shapes.HideShape(eyelids[i])
EndFor
ElseIf Math.Remainder(t, 6) = 0 Then
For i = 1 To 2
Shapes.ShowShape(eyelids[i])
EndFor
EndIf
EndSub