كود جعل صندوق النص لا يقبل سوى الأرقام

'ضع هذا الكود في الفورم

PRIVATE SUB TEXT1_CHANGE()

X=TEXT1.TEXT

IF ISNUMERIC(X)=FALSE THEN

TEXT1.TEXT=""

END IF

END SUB