In the declarations;

Dim YDif as Integer

In the load event;

YDif=1

On the click event

Y=Y+YDif
If Y=10 Or Y=0 Then YDif=-YDif


------------------
Mark "Buzby" Beeton
VB Developer
[email protected]