29-04-16, 07:14 PM
أضف كوماند وكتب الكود التالي:-
Public sa As Single
Private Sub CommandButton1_Click()
Dim lo As Single
TextBox2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Public sa As Single
Private Sub CommandButton1_Click()
Dim lo As Single
TextBox2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub