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

我想一个图层的标注在当地图放大到一定比例尺的时候再显示，不想让标注在地图一加载的时候 就显示，那样显的太乱了，能请大家给我写个条件的判定语句吗，然后调用标注函数！
我写了一个条件判断语句，但好象是不好用，大家也帮 我看看，有什么地方不对！！谢谢了！！
Sub DrawLayers() '加载图层

 ' load data into the map

 dc.Database = App.Path + "\..\" + "ditu"
 If Not dc.Connect Then End

 Set layer = New MapLayer
 Set layer.GeoDataset = dc.FindGeoDataset("WorldCountries")
 layer.Symbol.Color = ;H51CDFB
 If Map1.Extent.Width < Map1.FullExtent.Width * 0.5 Then‘条件判断语句但好象是不好用
 
 Dbl = True
 Call LayerLabel(layer)
 End If
 Map1.Refresh
 
 Map1.Layers.Add layer
End Sub
Sub LayerLabel(layer1 As MapLayer) '设置图层标注

Set layer1.Renderer = New LabelRenderer
With layer1.Renderer
   If Dbl Then
       .XOffsetField = "Xoffset"
       .YOffsetField = "Yoffset"
   End If
   .Field = "Placename"
   .Symbol(0).Color = moBlack
   .Symbol(0).Font.Size = 9
   .AllowDuplicates = True
End With

End Sub