Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close()
End Sub
End Class
Form 2 Source Code:
Public Class Form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() Form3.label2.text = TextBox1.Text Form3.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close()
End Sub
End Class
Form 3 Source Code:
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() Form4.Label2.Text = Me.TextBox1.Text + "Cheese Burger" + Me.Label7.Text Form4.Label3.Text = Me.TextBox2.Text + "Chicken Fillet" + Me.Label10.Text Form4.Label4.Text = Me.TextBox3.Text + "French Fries" + Me.Label13.Text Form4.Label5.Text = Me.TextBox4.Text + "Coke Float" + Me.Label16.Text Form4.Label6.Text = Me.TextBox5.Text + "Sundae Icecream" + Me.Label21.Text Form4.Label7.Text = Me.TextBox6.Text + "Spaghetti" + Me.Label24.Text Form4.Label8.Text = Me.TextBox7.Text + "Chicken Nuggets" + Me.Label27.Text Form4.Label9.Text = Me.TextBox8.Text + "Chicken Bucket" + Me.Label30.Text Form4.Label10.Text = Me.TextBox9.Text + "Mango Pie" + Me.Label33.Text Form4.Label11.Text = Me.TextBox10.Text + "McSpicy" + Me.Label36.Text Form4.Label12.Text = Val(TextBox1.Text) * 39 & " php" Form4.Label13.Text = Val(TextBox2.Text) * 50 & " php" Form4.Label14.Text = Val(TextBox3.Text) * 58 & " php"