vba delay help

[FUNwithOFFICE]

i've been trying to make a simple blinking animation of showing and subsequently hiding an image on a userform. i used

Application.Wait Now + TimeValue("00:00:01")

and it worked great but i really need less than one second delay.

then i tried using delay like so:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub blink()
Image1Glow.Visible = True
Sleep 500
Image2Glow.Visible = True
Sleep 500
Image3Glow.Visible = True
Sleep 500
Image4Glow.Visible = True
End Sub

when i ran it step by step with F8 function it seemed to work just fine but when i actually ran it it smushed it all together so the result was something akin to:

Sleep 500
Sleep 500
Sleep 500
Image1Glow.Visible = True
Image2Glow.Visible = True
Image3Glow.Visible = True
Image4Glow.Visible = True

what can i do to fix this?

(i'm operating excel 2007 with vista)

 

[JamesW]

Hi there and welcome to the board.

You need to "repaint" the userform..

Try:

Private Sub blink()
    Image1Glow.Visible = True
    Sleep 500
    Me.Repaint
    Image2Glow.Visible = True
    Sleep 500
    Me.Repaint
    Image3Glow.Visible = True
    Sleep 500
    Me.Repaint
    Image4Glow.Visible = True
End Sub

 

[Andrew Poulsom]

Don't you need to set the Visible property to False before True?

 

[FUNwithOFFICE]

thanks so much! it worked great!

 

[FUNwithOFFICE]

i've added pictures to the image objects and now the repaint makes it flicker so bad i can't even see the animation. i've looked up and down the net and i can't find any help in this matter...

 

[Jaafar Tribak]

i've added pictures to the image objects and now the repaint makes it flicker so bad i can't even see the animation. i've looked up and down the net and i can't find any help in this matter...

Do what Andrew suggested .