''  This file downloaded from www.EdHarriss.com
''  
''  www.EdHarriss.com File Information:
''  
''    Script Name: GP_easy_hide_unhide.vbs
''    Author: Greg Punchatz & Ludovick Michaud
''    Update/Change this file at by sending e-mail to EdHarriss@EdHarriss.com
''

set oCurSel = GetValue("SelectionList")

GetKeyboardState , l_ModifierKey 
if CBool(CByte(2) And CByte(l_ModifierKey)) then 
	aValue = False
	bValue = True
else 
	aValue = True
	bValue = False
end if 

SetValue oCurSel & ".visibility.viewvis", aValue 
SetValue oCurSel & ".visibility.rendvis", aValue 
SetKey oCurSel & ".visibility.viewvis", , aValue 
SetKey oCurSel & ".visibility.rendvis", , aValue 
NextFrame
SetValue oCurSel & ".visibility.viewvis", bValue 
SetValue oCurSel & ".visibility.rendvis", bValue 
SetKey oCurSel & ".visibility.viewvis", , bValue 
SetKey oCurSel & ".visibility.rendvis", , bValue 
PrevFrame