'-------------- Show / Hide Sub Menu By Click On Menu item

function showSubMenu(id)
  if ( id.style.display="none" ) then id.style.display="block" else id.style.display="none"
end function

'-------------- Highlight/ UnHighlight Menu By Click On Menu item

sub mouse_out(Cid)
  tmp=cid.bordercolordark
  cid.bordercolordark=cid.bordercolorlight
  cid.bordercolorlight=tmp
  cid.bgcolor="" 
end sub 

sub mouse_move(cid)
  'msgbox("c1" & cid.bordercolordark & " Li=" & cid.bordercolorlight )
  dim tmp
  tmp=cid.bordercolordark
  cid.bordercolordark=cid.bordercolorlight
  cid.bordercolorlight=tmp
 'msgbox("c1" & cid.bordercolordark & " Li=" & cid.bordercolorlight )

 'cid.bordercolor="#FFffff"
  cid.bgcolor="#0066FF" 
end sub