هدية من أسامة للمنتدى برنامج بسيط

أكتب هذا الكود في key_press الخاص بصندوق النص

dim str1 as string

str1="0 1 2 3 4 5 6 7 8 9"

if instr(str1,CStr(keyAscii-48) then

'do nothing

elseif keyascii =8 then

'backspace must work

keyascii=8

else:

keyAscii=0

end if