If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) And IsNumeric(TextBox3.Text) AndAlso IsNumeric(TextBox4.Text) Then TextBox5.Text = CInt(TextBox1.Text) * CInt(TextBox2.Text) * CInt(TextBox3.Text) * CInt(TextBox4.Text) End If
CSng
CInt
<br /> TextBox5.Text = CDbl(TextBox1.Text) * CDbl(TextBox2.Text) * CDbl(TextBox3.Text) * CDbl(TextBox4.Text)<br /> <br />
TextBox5.Text = Format(TextBox5.Text, "####.##")
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)