进来帮我看看,各位大哥!

<P>
Private Sub Map1_MapViewChanged()
Dim fts As Features
Dim ft As Feature</P>
<P>Dim rctmap As Rectangle
Dim pns As New Parts
Dim pn1 As New Point
Dim pn2 As New Point
Dim pn3 As New Point
Dim pn4 As New Point
Dim stl As New Style</P>
<P>
If Map2.GeoSet = "" Then
Exit Sub
End If
Map2.GeoSet = "F:\bb\bb.gst"</P>
<P>Set rctmap = Map1.Bounds
pn1.Set rctmap.XMin, rctmap.YMax
pn2.Set rctmap.XMax, rctmap.YMax
pn3.Set rctmap.XMax, rctmap.YMin
pn4.Set rctmap.XMin, rctmap.YMin
pns.Add pn1
pns.Add pn2
pns.Add pn3
pns.Add pn4
stl.LineColor = vbRed
stl.LineWidth = 3
Set fts = Map2.Layers.Item("build").AllFeatures
For Each ft In fts
Map2.Layers.Item("build").DeleteFeature ft
Next
Set ft = Map2.FeatureFactory.CreateLine(pnts, stl)
Map2.Layers.Item("build").AddFeature ft</P>
<P>我要做鹰眼图,老是实现不了,连MAP1和MAP2不能同步显示</P>
<P>MAP1是主图MAP2是副图</P>
<P>以上是关于同步的VB代码</P>
<P>帮我看看有没有写错或写倒了???</P>

<P>
 </P>