Attribute VB_Name = "ToggleVisbility"
'Vicki Magnis 03-07-04
'Toggles the visibility of a selected layers in the TOC
Private Sub turnlayeronoff_Click()
Dim pDoc As IMxDocument
Dim PCV As IContentsView
Set pDoc = ThisDocument
Set PCV = pDoc.CurrentContentsView

Dim pFLayer As IFeatureLayer
Dim pRaster As IRasterLayer
Dim Player As ILayer
Dim Pgroup As ILayer
Dim myset As ISet
'Set mySet = New Set
'Determine how many layers are selected
If TypeOf PCV.SelectedItem Is IFeatureLayer Then
Set pFLayer = PCV.SelectedItem
        If pFLayer.Visible = False Then
        pFLayer.Visible = True
        Else: pFLayer.Visible = False
    End If
    ElseIf TypeOf PCV.SelectedItem Is ILegendGroup Then
Set pFLayer = PCV.SelectedItem
        If pFLayer.Visible = False Then
        pFLayer.Visible = True
        Else: pFLayer.Visible = False
        End If
   ElseIf TypeOf PCV.SelectedItem Is IRasterLayer Then
Set pRaster = PCV.SelectedItem
        If pRaster.Visible = False Then
        pRaster.Visible = True
        Else: pRaster.Visible = False
    End If
    ElseIf TypeOf PCV.SelectedItem Is ILayer Then
Set Pgroup = PCV.SelectedItem
        If Pgroup.Visible = False Then
        Pgroup.Visible = True
        Else: Pgroup.Visible = False
    End If
ElseIf TypeOf PCV.SelectedItem Is ISet Then
Set myset = PCV.SelectedItem
Set Player = myset.Next
Do Until Player Is Nothing
    If Player.Visible = False Then
        Player.Visible = True
    Else: Player.Visible = False
    End If
        
    Set Player = myset.Next
Loop
Else: MsgBox "Please Select a Data Layer"

End If
pDoc.ActiveView.Refresh
pDoc.UpdateContents
End Sub