Public Class Form1
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
End Sub
Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label15.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox5.Text = TextBox1.Text * 250000
TextBox6.Text = TextBox2.Text * 250000
TextBox7.Text = TextBox3.Text * 250000
TextBox8.Text = TextBox4.Text * 250000
TextBox9.Text = TextBox1.Text * 1 + TextBox2.Text * 1 + TextBox3.Text * 1 + TextBox4.Text * 1
TextBox10.Text = TextBox5.Text * 1 + TextBox6.Text * 1 + TextBox7.Text * 1 + TextBox8.Text * 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox16.Text = TextBox11.Text * 450000
TextBox17.Text = TextBox12.Text * 250000
TextBox18.Text = TextBox13.Text * 250000
TextBox19.Text = TextBox14.Text * 250000
TextBox15.Text = TextBox11.Text * 1 + TextBox12.Text * 1 + TextBox13.Text * 1 + TextBox14.Text * 1
TextBox20.Text = TextBox16.Text * 1 + TextBox17.Text * 1 + TextBox18.Text * 1 + TextBox19.Text * 1
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form2.Show()
End Sub
End Class
Coding Form 2
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox22.Text = TextBox21.Text * 1000000
TextBox5.Text = TextBox1.Text * 700000
TextBox6.Text = TextBox2.Text * 550000
TextBox7.Text = TextBox3.Text * 475000
TextBox8.Text = TextBox4.Text * 1250000
TextBox9.Text = TextBox21.Text * 1 + TextBox1.Text * 1 + TextBox2.Text * 1 + TextBox3.Text * 1 + TextBox4.Text * 1
TextBox10.Text = TextBox22.Text * 1 + TextBox5.Text * 1 + TextBox6.Text * 1 + TextBox7.Text * 1 + TextBox8.Text * 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox24.Text = TextBox23.Text * 1000000
TextBox15.Text = TextBox11.Text * 700000
TextBox16.Text = TextBox12.Text * 550000
TextBox17.Text = TextBox13.Text * 475000
TextBox18.Text = TextBox14.Text * 1250000
TextBox19.Text = TextBox23.Text * 1 + TextBox11.Text * 1 + TextBox12.Text * 1 + TextBox13.Text * 1 + TextBox14.Text * 1
TextBox20.Text = TextBox24.Text * 1 + TextBox15.Text * 1 + TextBox16.Text * 1 + TextBox17.Text * 1 + TextBox18.Text * 1
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class
