Visual Basic para Aplicaciones - DESACTIVAR LAYERS (Help Me!)

Hola:

Soy nuevo en esto de Visual Basic, no soy un programador pero si tengo que ver con el ámbito de la Geomensura y SIG. Debido a esto, es que estoy realizando una aplicacion en ArcGIS plataforma ArcMap, en donde yo activo y desactivo layers de la vista principal. Despues de mucho esfuerzo, he generado un script que activa layers, éste es el sgte:

Private Sub Activa_Click()

Dim pMxDocument As IMxDocument
Dim PREDIO As IMap
Dim pFeatureLayer As IFeatureLayer
Dim pActiveView As IActiveView
Dim pContentsView As IContentsView

' Ingreso a layer
Set pMxDocument = ThisDocument
Set PREDIO = pMxDocument.FocusMap
Set pFeatureLayer = PREDIO.Layer(7)
'
' If the feature layer is not visible,
' then make it visible.
If Not pFeatureLayer.Visible Then
pFeatureLayer.Visible = True
End If

' Refresh the map.
Set pActiveView = PREDIO
pActiveView.Refresh

' Refresh the table of contents.
Set pContentsView = pMxDocument. _
CurrentContentsView
pContentsView.Refresh pFeatureLayer

End Sub

Lo que necesito ahora es hacer el proceso contrario, quiero desactivar layers y no me resulta por ningún medio, ojala uds me puedan ayudar. Como sé programar en avenue, tengo esa lógica muy pegada y visual es diferente, es por eso que necesito que alguien me de una orientación.

De antemano, muchas gracias a todos!!!

solo tienes que cambiar dos lineas y listo

Private Sub UIButtonControl2_Click()
Dim pMxDocument As IMxDocument
Dim PREDIO As IMap
Dim pFeatureLayer As IFeatureLayer
Dim pActiveView As IActiveView
Dim pContentsView As IContentsView

' Ingreso a layer
Set pMxDocument = ThisDocument
Set PREDIO = pMxDocument.FocusMap
Set pFeatureLayer = PREDIO.Layer(0)
'
' If the feature layer is not visible,
' then make it visible.

'''''''''''el cambio lo haces aqui

If pFeatureLayer.Visible = True Then
pFeatureLayer.Visible = False
End If

' Refresh the map.
Set pActiveView = PREDIO
pActiveView.Refresh

' Refresh the table of contents.
Set pContentsView = pMxDocument. _
CurrentContentsView
pContentsView.Refresh pFeatureLayer

End Sub

Ohhh, increible!!!

Me sirvio, muchas gracias por tu gran ayuda... lo prove y corre excelente, eso si que el numero del layer en este caso es 7 por el orden de la vista, asi que te agradezco nuevamente por tu gran ayuda.

Gracias!!!