[求助]急救VB+MO！！！！！！

<P>各位大侠帮个忙吧，谢谢了。</P>
<P>我用如下代码实现键盘上的箭头键控制地图的上下左右移动，但是不行。我在map1.keydown里添加如下代码
dim ds as integer
if keycode＝;h25 then  （左箭头）
ds＝4*p1.extent.width
set r=map1.extent
r.offset ds,0
map1.extent=r
end if
  </P>
<P>我在map1_mousedown里加入如下代码，想实现放大到一定程度不在放大。但是实现不了。代码如下
if map1.extent.width>=map1.fullextent.width/4 then
set map1.extent＝map1.rackrectangle
set r＝map1.extent
r.scalerectangle 1
map1.extent＝r
end if </P>

<P>谢谢各位了!!!!!!!!!!!!!!!!!!!!!</P>

怎么没人理我啊！斑竹，救命啊！！！！1