[الاصيله]

(05-06-22, 02:27 AM)نهى علي كتب : السلام عليكم
هل من جواب استاذتي الكرام

وعليكم اسلام
اهلا اختي نهى
اليك هذا الكود مثلما طلبتي
ضعي هذا الكود كما هو للتيكست الاول 

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text > 0 Then
Text2.Text = Val(Text2.Text) + Val(1)
  End If
End If
End Sub