[georgos]

اخي نفس المشكلة و هي لم تكن موجودة
ضهرت من بعد كود حساب المجموع الاجمالي

كود :

 Private Sub Calc()
       If txtPris.Text = "" Then Exit Sub
       If cmoms.Text = "" Then Exit Sub
       Dim x As Double
       Dim y As Double
       Dim z As Double

       y = cmoms.SelectedItem.ToString

       x = CDbl(txtPris.Text)
       z = x * y / 100
       txtmoms.Text = z
       txttotalt.Text = CDbl(x + z)

   End Sub