有没有能对文本框中的数字进行加减的控件？？？

这个？<SCRIPT LANGUAGE="VBScript">
<!--
Sub Layout1_OnLoad()
SpinButton1.Orientation = 0
TextBox1.Font.Size = 24
end sub
Sub SpinButton1_SpinUp()
SpinButton1.Delay = 1000
TextBox1.Text = TextBox1.Text + 1
end sub
Sub SpinButton1_SpinDown()
SpinButton1.Delay = 1000
TextBox1.Text = TextBox1.Text - 1
end sub
-->
</SCRIPT>
<DIV ID="Layout1" STYLE="LAYOUT:FIXED;WIDTH:79pt;HEIGHT:38pt;">
    <OBJECT ID="TextBox1"
     CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3" 
STYLE="TOP:0pt;LEFT:0pt;WIDTH:41pt;HEIGHT:20pt;TABINDEX:0;ZINDEX:0;">
        <PARAM NAME="VariousPropertyBits" VALUE="746604571">
        <PARAM NAME="MaxLength" VALUE="9">
        <PARAM NAME="Size" VALUE="1446;1164">
        <PARAM NAME="Value" VALUE="25">
        <PARAM NAME="FontName" VALUE="System">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontCharSet" VALUE="134">
        <PARAM NAME="FontPitchAndFamily" VALUE="34">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="SpinButton1"
     CLASSID="CLSID:79176FB0-B7F2-11CE-97EF-00AA006D2776" 
STYLE="TOP:0pt;LEFT:42pt;WIDTH:17pt;HEIGHT:20pt;TABINDEX:1;ZINDEX:1;">
        <PARAM NAME="Size" VALUE="600;1164">
    </OBJECT>
</DIV>