تعربف متغير

بالنسبة للسؤال الاول أضف Module جديد وضع فيه هذا الكود

Public bCalculated As Boolean

لنفرض أن عندك form1 ويوجد به زر امر Command1 ، ضع فيه هذا الكود

Private Sub Command1_Click()
If bCalculated Then
MsgBox "the value was calculated before"
Else
' CalculatebCalculated = True
End If
End Sub

أيضا يوجد عندك form2 وبه زر أمر Command1 ،، ضع فيه هذا الكود

Private Sub Command1_Click()
If bCalculated Then
MsgBox "the value was calculated before"
Else
' Calculate
bCalculated = True
End If
End Sub

بالنسبة للسؤال الثاني فعذرا لم أفهم مقصودك

وشكرا

بالنسبه للسوال الاول : لقد فعلت ذلك وكان صحيح لكن المشكله لدي انني اريد اطلع له الناتج السابق فكيف اعرف ايه فورم التي انحسب فيها الناتج

اما السوال الثاني فقصدي انى اريد امسح رقم واحد بحيث انني لودخلت 24وكان قصدي 22 فقط امسح ال4 واضع اثنين ولكن اريد عمليه المسح تتم باستخدام الكيبورد

يمكنك تخزين الناتج في متغير عام من نوع public مثلا نقوم بتعريف المتغير في Module هكذا

Public total as Long

ومن ثم يمكن استخدام هذا المتغير لتخزين الناتج بسهولة

السؤال الثاني غريب فمن المعروف انه تلقائيا عند الضغط على مفتاح Backspace يقوم بمسح آخر حرف تمت كتابته :confused: