[الاستاذ خليل]

سيتم شرحها بعون الله

عملك ممتاز

بس تقدر تعدل الكود استاذ حافظ كالتالي :

If Val(TextBox1.Text) = 60 Then
'MsgBox ("اجابة صحيحة")
s = MsgBox("اجابة صحيحة", vbOKOnly, "الرياضيات  ")
Else
MsgBox ("اجابة خاطئه ")
End If

حيث قمنا بحذف اقواس التنصيص مثل هذا

Val(TextBox1.Text) = "60"

او بامكانك تغييره الى التالي :

TextBox1.Text = "60"

و كلهم تعطي نفس النتيجة لكن ستظهر مشكلة ساخبركم بها لاحقا