Kod:
On Error Resume Next
Dim para As Single
para = CSng(TextBox3.Text)
para = CSng(TextBox5.Text)
para = CSng(TextBox6.Text)
TextBox3.Text = para.ToString("N")
TextBox3.Text = TextBox1.Text * TextBox2.Text
TextBox3.Text = (Math.Round(Convert.ToDouble(TextBox3.Text), 2))
TextBox5.Text = para.ToString("N")
TextBox5.Text = TextBox3.Text * TextBox4.Text / 100
TextBox5.Text = (Math.Round(Convert.ToDouble(TextBox5.Text), 2))
TextBox6.Text = para.ToString("N")
TextBox6.Text = TextBox3.Text - TextBox5.Text
TextBox6.Text = (Math.Round(Convert.ToDouble(TextBox6.Text), 2))
