Sub ShowHide(Obj)
  If Obj.Style.display = "" Then
    Obj.Style.display = "none"
  Else
    Obj.Style.display = ""
  End If
End Sub

Sub ChangeColor1(Obj,obj1,No1)
  Obj.bgcolor = "#438B7E"
  Obj.ClassName = "tab2"
  HideAll
  showvisiable obj1,No1-1
End SUb
  
Sub ChangeColor2(Obj)
  Obj.bgcolor = "#F7F7F7"
  Obj.ClassName = "tab1"
  window.status =  window.event.x
  If window.event.x < 319 Or window.event.x > 450 Then
    HideAll
  End If  
End Sub

Sub ChangeColor3(Obj)
  Obj.bgcolor = "#438B7E"
  Obj.ClassName = "tab2"
End SUb
  
Sub ChangeColor4(Obj)
  Obj.bgcolor = "#F7F7F7"
  Obj.ClassName = "tab1"
  
End Sub

Sub HideOne(Obj1,No2)
  No2 = No2 - 1
  Select Case Obj1
    Case "3"
      document.all.Layer3A(No2).Style.visibility = "Hidden"
    Case "4"
      document.all.Layer4A(No2).Style.visibility = "Hidden"
    Case "5"
      document.all.Layer5A(No2).Style.visibility = "Hidden"  
  End Select
End Sub
  
Sub showvisiable(obj1,No2)
  Select Case Obj1
    Case "Layer3A"
      document.all.Layer3A(No2).Style.visibility = "visible"
    Case "Layer4A"
      document.all.Layer4A(No2).Style.visibility = "visible"
    Case "Layer5A"
      document.all.Layer5A(No2).Style.visibility = "visible"  
  End Select
 
End Sub
  
Sub HideAll()
  For jj = 0 to document.all.Layer3A.Length - 1
    document.all.Layer3A(jj).Style.visibility = "hidden"
  Next
  For jj = 0 to document.all.Layer4A.Length - 1
    document.all.Layer4A(jj).Style.visibility = "hidden"
  Next
  
End Sub