[求助]求救！！（vb+mo的问题？）

 下面的代码是用vb+mo做的放大，缩小，平移的。但是不能显示！！
<P>希望给予解答………………………………</P>
<P>Private bzoomorpan As Boolean</P>
<P>Private Sub cmdglobe_Click()<BR>Set Map2.Extent = Map2.FullExtent</P>
<P>End Sub</P>
<P>Private Sub cmdpan_Click()<BR>bzoomorpan = False<BR>Map2.MousePointer = moPan<BR>End Sub<BR>Private Sub cmdzoomin_Click()<BR>bzoomorpan = True<BR>Map2.mousepoint = moZoomIn<BR>End Sub</P>
<P>Private Sub Form_Resize()<BR>If Me.WindowState <> 1 Then<BR>   Map2.Width = Me.ScaleWidth<BR>   Map2.Height = Me.Height - 500<BR>End If</P>
<P>End Sub</P>
<P>Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>If bzoomorpan = True Then<BR>   Dim tmpextent As MapObjects2.Rectangle<BR>   Set tmpextent = Map2.TrackRectangle<BR>   If Not tmpextent Is Nothing Then<BR>      Set Map2.Extent = tmpextent<BR>   End If<BR>Else<BR>   Map2.Pan<BR>End If<BR>End Sub</P>