'是圖層可視
Public Sub MakeLayerVisible()
  Dim pMxDocument As IMxDocument    '地圖文檔
  Dim pMap As IMap    '地圖
  Dim pFeatureLayer As IFeatureLayer    '要素層
  Dim pActiveView As IActiveView    '活動視圖
  Dim pContentsView As IContentsView    '窗口內容表
  
  '獲取地圖的第一層
  Set pMxDocument = ThisDocument    '獲取當前應用程序的文檔
  Set pMap = pMxDocument.FocusMap    '獲取當前地圖
  Set pFeatureLayer = pMap.Layer(0)    '獲取當前地圖的第一層  
  
  '如果要素層不可見，則使其可見
  If Not pFeatureLayer.Visible Then
    pFeatureLayer.Visible = True
  End If
  
  '刷新地圖
  Set pActiveView = pMap    '將當前地圖設為活動地圖
  pActiveView.Refresh    '刷新
  
  '刷新窗口內容表
  Set pContentsView = pMxDocument.CurrentContentsView    '獲取當前地圖文檔的窗口內容表
  pContentsView.Refresh pFeatureLayer    '刷新
End Sub