[zip000]

Ну для начала было бы неплохо подучить синтаксис, т.к. выражение
if shape1.Left=790 or 10
неправильно. Надо (Shape1.Left = 790) or (Shape1.Let = 10), (а еще лучше использовать не =, а >= и <=). А ты выполняешь логическое или (or), а потом сравниваешь полученный результат с Shape1.Left. Надо по отдельности сравнивать с каждым значением. Также в данном случае надо использовать глобальные переменные, а не локальные.