[princelovelorn]

أولا أكتب في combobox القيم التالية
0
2.5

وتفضل الكود التالي ضعه في اي مكان في الفورم

كود :

Private Sub calc()
       If txtpris.Text = "" Then Exit Sub
       If Ctax.Text = "" Then Exit Sub
       Dim x As Double
       Dim y As Double
       Dim z As Double

       y = Ctax.SelectedItem.ToString

       x = CDbl(txtpris.Text)
       z = x * y / 100
       Tax.Text = z
       txttotal.Text = CStr(x + z)

   End Sub

ثم في حدث txtpris_TextChanged
ضع الكود التالي

كود :

calc()

ثم في حدث Ctax_SelectedIndexChanged
ضع الكود التالي

كود :

calc()