THis is what I want to do

Freeze the screen of my program -
Shape1.Forecolor = vbblue
shape1.refresh
Sleep 100

Shape1.Forecolor = vbred
shape1.refresh
Sleep 1000

Shape1.Forecolor = vbgreen
shape1.refresh
Sleep 1000

Shape1.Forecolor = vbyellow
shape1.refresh
Sleep 1000
Unfreeze the screen of my program

What Would Happen is the shape
after 4 second2 would change
its color to yellow.. Not blue then
red then green then yellow..

KNow of a way to do that?