[求助]vb+mo下图层标注的显示问题！！

<P>我想一个图层的标注在当地图放大到一定比例尺的时候再显示，不想让标注在地图一加载的时候 就显示，那样显的太乱了，能请大家给我写个条件的判定语句吗，然后调用标注函数！<BR>我写了一个条件判断语句，但好象是不好用，大家也帮 我看看，有什么地方不对！！谢谢了！！<BR>Sub DrawLayers() '加载图层</P>
<P>  ' load data into the map</P>
<P> <BR>  dc.Database = App.Path + "\..\" + "ditu"<BR>  If Not dc.Connect Then End</P>
<P>  Set layer = New MapLayer<BR>  Set layer.GeoDataset = dc.FindGeoDataset("WorldCountries")<BR>  layer.Symbol.Color = ;H51CDFB<BR>  If Map1.Extent.Width < Map1.FullExtent.Width * 0.5 Then‘条件判断语句但好象是不好用<BR>  <BR>  Dbl = True<BR>  Call LayerLabel(layer)<BR>  End If<BR>  Map1.Refresh<BR>  <BR>  Map1.Layers.Add layer<BR>End Sub<BR>Sub LayerLabel(layer1 As MapLayer) '设置图层标注</P>
<P>Set layer1.Renderer = New LabelRenderer<BR>With layer1.Renderer<BR>    If Dbl Then<BR>        .XOffsetField = "Xoffset"<BR>        .YOffsetField = "Yoffset"<BR>    End If<BR>    .Field = "Placename"<BR>    .Symbol(0).Color = moBlack<BR>    .Symbol(0).Font.Size = 9<BR>    .AllowDuplicates = True<BR>End With</P>
<P>End Sub<BR></P>

好像这种东西不需要写多少语句啊并且不用你自己判断啊.你只要设置了map的参考缩放比例以及缩放及显示单位，然后再设置图层的缩放范围就可以解决你以上的问题啦。