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

السلام عليكم

عمل رائع انفنتي و الاستاذ رفعت حافظ

لي ملاحظة للاستاذ حافظ رفعت

يجب دائما اذ قيمة مربع النص رقمية يجب تحويلها لرقمية الا اذا كانت غير متغيرة ستعتبر نص
هكذا في الشريحة الاخيرة

Private Sub CommandButton2_Click()
TextBox3.Text = Val(TextBox2.Text) * 2 + 5
End Sub

قريبا سانجز درسكم