ÿþsub MenuOver(id)

	t=document.all.item(id).src

	t=left(t,len(t)-5) & "1" & "." & right(t,3)

	document.all.item(id).src=t

end sub



sub MenuOut(id)

	t=document.all.item(id).src

	t=left(t,len(t)-5) & "0" & "." & right(t,3)

	document.all.item(id).src=t

end sub



sub ButtonImageTF(id,tfA)

	t=lcase(document.all.item(id).style.backgroundimage)

	if tfa then

		t=replace(t,"_false.","_true.")

	else

		t=replace(t,"_true.","_false.")

	end if

	document.all.item(id).style.backgroundimage=t

end sub