BitBit to scroll text

[lorenzodv]

I'm trying making a line of text printed in a PictureBox scroll. I print the text with the following code:

Picture1.CurrentX = 0
Picture1.CurrentY = Picture1.ScaleHight
Picture1.Print "Text to scroll"

AutoRedraw is set to True.
I added Private declarations for BitBit and the SRCCOPY constant in General Declarations of the form, and now I put the following code into a Timer (Interval = 100) to scroll the text vertically.

Ret = BitBlt(Picture1.hDC, 0, 0, Picture1.ScaleWidth, _
Picture1.ScaleHeight, Picture1.hDC, 0, 1, SRCCOPY)

However, nothing happens. What am I doing wrong?
Thanks for your time.

--
Lorenzo

 

[strongm]

Just add a Picture1.Refresh after the BitBlt