Listing 1: Code for Sample HTA in Figure 1

<html>
<head>
<title>Simple HTA Sample</title>
<!--BEGIN CALLOUT A-->
<HTA:APPLICATION
BORDER="thin"
BORDERSTYLE="sunken"
CAPTION="yes"
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
SCROLL="no"
SHOWINTASKBAR="no"
SYSMENU="yes"
WINDOWSTATE="normal" />
<!--END CALLOUT A-->
</head>

<!--BEGIN CALLOUT B-->
<script language="vbscript">
Sub showsetting
MsgBox "You are now in the VBScript section"
MsgBox "You entered " & T1.value & " in the Text box"
MsgBox "You entered " & T2.value & " in the Password box"
End Sub
</script>
<!--END CALLOUT B-->

<body>
<!--BEGIN CALLOUT C-->
<p><font size="3">Text box </font><input type="text" name="T1" size="20">
  <font size="3">Use a text box for most any type of input</font></p>
<!--END CALLOUT C-->
<p><font size="3">Password box </font><input type="password" name="T2" 
  size="20"><font size="3"> This provides Masked input</font></p>
<!--BEGIN CALLOUT D-->
<p><input type="button" value="Push this button to run script" name="B3" 
  onclick=showsetting()></p>
<p><input type="button" value="Exit" name="B6" onclick=self.close()></p>
<!--END CALLOUT D-->
</body>
</html>