function copy2Clipboard() {
			// Copies currently displayed code to user's clipboard
		taCode.innerText = code.innerText;
		textRange = taCode.createTextRange();
		textRange.execCommand("RemoveFormat");
		textRange.execCommand("Copy");
}

<!--

	function fnReset() 
			// Unbold all spans
		s3d1.style.fontWeight = "normal"
		s3d2.style.fontWeight = "normal"	
		sArrow1.style.fontWeight = "normal"
		sArrow2.style.fontWeight = "normal"
		sBase1.style.fontWeight = "normal"
		sBase2.style.fontWeight = "normal"
		sDark1.style.fontWeight = "normal"
		sDark2.style.fontWeight = "normal"
		sFace1.style.fontWeight = "normal"
		sFace2.style.fontWeight = "normal"
		sHighlight1.style.fontWeight = "normal"
		sHighlight2.style.fontWeight = "normal"
		sShadow1.style.fontWeight = "normal"
		sShadow2.style.fontWeight = "normal"
		sTrack1.style.fontWeight = "normal"
		sTrack2.style.fontWeight = "normal"
	end function

	function fnChange(sInProp)	
		
		fnReset()
	
		Select Case sInProp
				
			Case "3d"  					
				oTextArea.style.scrollbar3dLightColor = _
					o3d.options(o3d.selectedIndex).value
				s3d2.innerText = o3d.options(o3d.selectedIndex).value	
				s3d2.style.fontWeight = "bold"
				s3d1.style.fontWeight = "bold"
		
			Case "arrow" 
				oTextArea.style.scrollbarArrowColor = _
					oArrow.options(oArrow.selectedIndex).value
				sArrow2.innerText = oArrow.options(oArrow.selectedIndex).value
				sArrow2.style.fontWeight = "bold"
				sArrow1.style.fontWeight = "bold"
		
			Case "base"
				oTextArea.style.scrollbarBaseColor = _
					oBase.options(oBase.selectedIndex).value
				sBase2.innerText = oBase.options(oBase.selectedIndex).value
				sBase2.style.fontWeight = "bold"
				sBase1.style.fontWeight = "bold"
		
			Case "dark"
				oTextArea.style.scrollbarDarkShadowColor = _
					oDark.options(oDark.selectedIndex).value
				sDark2.innerText = oDark.options(oDark.selectedIndex).value
				sDark2.style.fontWeight = "bold"
				sDark1.style.fontWeight = "bold"
		
			Case "face"
				oTextArea.style.scrollbarFaceColor = _
					oFace.options(oFace.selectedIndex).value
				sFace2.innerText = oFace.options(oFace.selectedIndex).value
				sFace2.style.fontWeight = "bold"
				sFace1.style.fontWeight = "bold"
		
			Case "highlight"
				oTextArea.style.scrollbarHighlightColor = _
					oHighlight.options(oHighlight.selectedIndex).value
				sHighlight2.innerText = oHighlight.options(oHighlight.selectedIndex).value
				sHighlight2.style.fontWeight = "bold"
				sHighlight1.style.fontWeight = "bold"
		
			Case "shadow"
				oTextArea.style.scrollbarShadowColor = _
					oShadow.options(oShadow.selectedIndex).value		
				sShadow2.innerText = oShadow.options(oShadow.selectedIndex).value
				sShadow2.style.fontWeight = "bold"
				sShadow1.style.fontWeight = "bold"

			Case "track"
				oTextArea.style.scrollbarTrackColor = _
					oTrack.options(oTrack.selectedIndex).value		
				sTrack2.innerText = oTrack.options(oTrack.selectedIndex).value
				sTrack2.style.fontWeight = "bold"
				sTrack1.style.fontWeight = "bold"
	
		End Select	
	
	end function

//-->