ok some more help please

[bensonsearch]

Im wanting an image to move up the screen(in a label) until the top, but here is that catch it must be visible the whole way.
my code is as follows:

ElseIf KeyCode = 32 Then
Label2.Visible = True
If Label2.Top > 299 Then
Do
Label2.Top = Label2.Top - 1
Loop Until Label2.Top = 1
ElseIf Label2.Top <= 1 Then
Label2.Top = 300
End If

the code makes the image go to the top then back down again but it happens instantly with no seeing the image inbetween or on its travel if you will.

any help would be great

 

[Andrew Poulsom]

Maybe you need to use the Wait statement inside your loop to slow things down.

 

[bensonsearch]

i have tried 2 different ways of waiting (actualt wait with using time and one that just counts like a loop in a loop) but both time out and make excel stop responding. I have been putting it just before the loop statement. is that right?

 

[Andrew Poulsom]

If I run this code in Excel 2003, the Label moves smoothly up the screen, albeit rather quickly:

Sub Test()
    Do
        Label2.Top = Label2.Top - 1
    Loop Until Label2.Top <= 1
End Sub