[أحـمد قرنى]

[QUOTE=حسن الاستاذ;5833309]سؤالين لو سمحتم
كلمة end if تكتب بينها مسافة ولا ايه
اه لازم يكون فى مسافة
كلمة dim لابد ان تكون كابتل ولا عادى سمول
مش هتفرق
-
إن&""& textbox1 =txtn.text وضح الكود السابق
مش فاهم اكود عايز ايه حضرتك متاكد من صحة كتابته
-- امامك برنامج يعطى خطأ ادا ادخلنا قيم نصية قم باعادة تصميم البرنامج باستخدام if

dim x ,y as single
If isnumeric ( textbox1.text) then
x = me . textbox1.text
y=3*x=2
label1.text=y
else
( " ادخل قيمة عددية " )msgbox
( ) Textbox1 . Focus
""= Textbox1 . txet
End If