<html>
<head>
<title>ActiveX nesneleri kullanimina örnek</title>
<script LANGUAGE="VBScript">
<!--
Sub Goster
Alert(cStr(Calendar1.Year) + "/" + cStr(Calendar1.Month) + "/" + cStr(Calendar1.Day))
End Sub
-->
</script>
</head>
<body>
<p>
<object classid="clsid:8E27C92B-1264-101C-8A2F-040224009C02" id="Calendar1" width="288"
height="192">
<param name="_Version" value="524288">
<param name="_ExtentX" value="7620">
<param name="_ExtentY" value="5080">
<param name="_StockProps" value="1">
<param name="BackColor" value="-2147483633">
<param name="Year" value="2001">
<param name="Month" value="5">
<param name="Day" value="21">
<param name="DayLength" value="1">
<param name="MonthLength" value="2">
<param name="DayFontColor" value="0">
<param name="FirstDay" value="1">
<param name="GridCellEffect" value="1">
<param name="GridFontColor" value="10485760">
<param name="GridLinesColor" value="-2147483632">
<param name="ShowDateSelectors" value="-1">
<param name="ShowDays" value="-1">
<param name="ShowHorizontalGrid" value="-1">
<param name="ShowTitle" value="-1">
<param name="ShowVerticalGrid" value="-1">
<param name="TitleFontColor" value="10485760">
<param name="ValueIsNull" value="0">
</object>
</p>
<p><input type="button" value="Seçili tarihi göster" name="btnGoster" onclick="goster"></p>
</body>
</html>