Dim oldcolor

Sub DoMouseOver()
     oldColor = window.event.srcElement.style.color
     window.event.srcElement.style.color = "yellow"
End Sub

Sub DoMouseOut()
     window.event.srcElement.style.color = oldColor
End Sub