How to make invert this code:
x = Picture1.Height
x = 0
Do Until x >= 4700
x = x + 1
me.Refresh
Picture1.Height = x
Loop


so that it will scroll from bottom to top not from top to bottom

Thank You