[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم انت تقول سأقوم بعملية الطرح وفي كودك توجد الاشارة (+) بدل الطرح وهنا المشكلة غيرها الى اشارة ناقص (-)

كود :

   If txt_name_item.Text = "تسديد" Then

           txt_d.Text = TextBox13.Text
           If Val(TextBox16.Text) >= Val(TextBox13.Text) Then
               txt_price.Text = 0
           Else
               txt_price.Text = Val(TextBox13.Text) - Val(TextBox16.Text)
           End If
       Else
           txt_d.Text = 0
       End If

شيئ آخر يمكنك استخدام التحويل Convert.ToInt32 نفس النتيجة 

كود :

If txt_name_item.Text = "تسديد" Then

           txt_d.Text = TextBox13.Text
           If Convert.ToInt32(TextBox16.Text) >= Convert.ToInt32(TextBox13.Text) Then
               txt_price.Text = 0
           Else
               txt_price.Text = Convert.ToInt32(TextBox13.Text) - Convert.ToInt32(TextBox16.Text)
           End If
       Else
           txt_d.Text = 0
       End If