关于图层显示的问题

我在加载了图层后欲用check实现对图层显示的控制,并使check的caption=图层的名字.用以下程序段:
Private Sub Check1_Click()
  Dim layer As MapLayer
  Set layer = Map1.Layers(Check1.Caption)
  If Check1.Value = 0 Then
     layer.Visible = False
   Else
     layer.Visible = True
  End If
    Map1.Refresh
 End Sub
运行却在加载图层时出现object variable or with block variable not set 错误,将"dim layer as maplayer "改成"dim layer as new maplayer"错误没有了(顺便问一下maplayer和new maplayer 有什么区别),却出现了只能控制第一个图层的情况,后面图层对应的check不起作用的情况.请教了

使用lengend控件很方便的了，因为你的变量可能没有释放和重新set吧