Sub DarkenText (Frm, colorHex)
  Frm.style.color = colorHex
End Sub

Sub LightenText (Frm, colorHex)
  Frm.style.color = colorHex
End Sub