زوم تصویر و اسکرول ( کشیدن به بالا پایین چپ یا راست ) در فرم اکسس

VbKeyAdd

VbKeySubtract

VbKeyLeft,VbKeyRight,VbKeyDown,VbKeyUp

 : Zooming

Image.Width=Image.Width+100

Image.Height=Image.Height+100

 : Scrolling

L=L-(Image.Width/Image.Height)*100

L=L+(Image.Width/Image.Height)*100

R=R-(Image.Width/Image.Height)*100

R=R+(Image.Width/Image.Height)*100