Here's an example of how to call up a calendar within your HTA applications.
To get a selected date you can use a statement like this: DateVal = Calendar1.Value (I'll post an example of this soon).
Simply copy the code below into a text file and save it with an HTA extension.
Enjoy.
<html>
<head>
<TITLE>Desk Calendar</TITLE>
<HTA:APPLICATION
ID="HTACalendarControl"
APPLICATIONNAME="HTACalCtrl"
SCROLL="no"
SINGLEINSTANCE="no"
WINDOWSTATE="normal"
>
<script type="text/VBScript">
Public da
x=window.setInterval("Clock_Tick",500)
da = day(date())
Sub Window_Onload
self.ResizeTo 370,280 'w,h
t1.InnerText=Time()
t2.InnerText=Date()
End Sub
Sub clock_tick
t1.InnerText=Time()
t2.InnerText=Date()
If day(date()) <> da Then
window.location.reload()
da = day(date())
End If
End Sub
</script>
</head>
<body STYLE="filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#0000AA', EndColorStr='#000055')">
<p align="center">
<OBJECT CLASSID="clsid:8E27C92B-1264-101C-8A2F-040224009C02" id="Calendar1"></OBJECT>
<br>
<b><font color="#C0C0C0">Date</font></b><input type="text" name="T2" size="11">
<font color="#C0C0C0"><b>Time</b></font><input type="text" name="T1" size="11">
</BODY>
</HTML>