Listing 1: The ShowHelp Subroutine

Sub ShowHelp
' ******* BEGIN CALLOUT A *******
  Select Case document.activeElement.id
' ******* END CALLOUT A *******
    Case ""
      ShowMainHelp()
    Case "TextAreaHelp"
      ShowHelp1()
    Case "Rad1"
      ShowHelp2()
    Case "Rad2"
      ShowHelp3()
    Case "drpdown"
      ShowHelp4()
    Case "chk1"
      ShowHelp5()
    Case "txtbox"
      ShowHelp6()
    Case "dwnload"
      ShowHelp7()
   End Select
End Sub