'===================================================================
'			TurnOnAllLayers
'===================================================================
Public Sub TurnOnAllLayers()
    Dim i
    Dim j
     
    Set A.IMxDocument = ThisDocument
    Set A.IMaps = A.IMxDocument.Maps
   
    For i = 1 To A.IMaps.Count
        Set A.Imap = A.IMaps.Item(i - 1)
        For j = 1 To A.Imap.LayerCount
            Set A.Ilayer = A.Imap.Layer(j - 1)
            A.Ilayer.Visible = True
        Next j
    Next i

    A.IMxDocument.UpdateContents
    A.IMxDocument.ActiveView.Refresh
End Sub