Sub over(source)
  source.style.backgroundcolor = "black"
  source.style.color = "white"
End sub


Sub out(source)
  source.style.backgroundcolor = ""
  source.style.color = "black"
End sub