ako sam te skužio:
za svaki 'hdcp' u padajućem izborniku napravio si kod koji računa bruto i neto.
kod možeš pojednostavit ako napraviš funkciju:
Public Sub IzracunajBN (hdcp as integer)
' tu ide kod koji racuna
End Sub
Funkciju pozivaš:
IzračunajBN ( Cint(Combo1.Text))
