MI-L Alter Control - Value

[paul quinlan]

Hi

i have an EditText control, from which i would like the user to be able to select the appropriate year by clicking an up or down button. ive used the following code, but still cant seem to get it to work and id be grateful for any suggestions regarding what im doing wrong.
TIA
Paul

'creates year box
control edittext
ID 101
position 140, 60
width 30 height 15
Value 2002

'decrease year
control button
id 102
position 120, 60
width 15 height 15
calling DecreaseYear

Sub DecreaseYear

dim pYear as integer

alter control 101
active

pYear = readcontrolvalue(101)
pYear = pYear - 1

alter control 101
value pYear

end sub






_________________________________________________________________
Overloaded with spam? With MSN 8, you can filter it out http://join.msn.com/?page=features/junkmail&pgmarket=en-gb&XAPID=32&DI=1059


---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 5109