Dim lngColor
Dim aT

Sub window_onload
lngColor = "#FF0000"
Set aT = document.all.tags("A")
aT(1).style.color = lngColor
End Sub

Sub document_onclick()
If window.event.srcElement.tagName="A" Then
	Dim n
	n = window.event.srcElement.sourceIndex
	For i=0 To aT.length-1
		aT(i).style.color="#000080"
	Next
	document.all.item(n).style.color=lngColor
End If
End Sub