[ودالثورة]

[COLOR="#000080"]سلام علىكيم
رجو شرح هذا الكودين
الكود الاول
Private Sub Command1_Click()
If j = 1 Then
j = 0
TEXT1.Text = ""
End If

TEXT1.Text = TEXT1.Text + "1"
End Sub

الكود الثانى
Private Sub Command22_Click()
mem = mem + Val(TEXT1.Text)
TEXT1.Text = ""
TEXT1.SetFocus
Text2.Text = "M"
Text2.Visible = True
End Sub[/COLOR]