Curtains Up Effect

[kmchong]

I am trying to make a curtain up effect. ie. a word(variable) gradually displayed to the user, like the curtains up in the threatre. I try to overlay a picture box and a label, but unsuccessful. Do anybody knows how to do it?

Thanks

[_bman_]

Private Sub Command1_Click()
    Dim x As Long
    
    For x = Picture1.Height To 0 Step -20
        Form1.Refresh
        Picture1.Height = x
    Next
    Picture1.Visible = False
End Sub

seems to do the trick for the picture box and label, but the flickering of the label is annoying. I did notice that having another picture box under the "curtain" gets rid of the flickering. So if you put your text into a picture format and display it in the second picture box, it may look ok. good luck

[kmchong]

Thank you for your input. I changed a bit to make it horizontal scroll by putting a label inside a picture box. It works perfectly.