[VB_Coder]

السلام عليكم

- أدرج 3 تكست بوكس ، وزر ثم ضع هذا الكود للزر :

كود :

Private Sub Command1_Click()
Dim A As String
A = Val(Text1.Text) - Val(Text2.Text)
A = Replace(A,"-","")
Text3.Text = Trim(A)
End Sub