private sub command1 click dim x=5 y=6