Listing 1: The ChangeColor and ReturnColor Subprocedures

Sub ChangeColor
 Heading.style.color="gray"
 Heading.innerText="Exit HTA Special Effects - Press F1 for Help"
End Sub

Sub ReturnColor
 Heading.style.color="black"
 Heading.innerText="HTA Special Effects"
End Sub