Forms
Form 1:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Label1.Click
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
Label1.Font = New Font(Label1.Font, FontStyle.Bold)
Label2.Font = New Font(Label2.Font, FontStyle.Bold)
Label3.Font = New Font(Label3.Font, FontStyle.Bold)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
Label1.Font = New Font(Label1.Font, FontStyle.Underline)
Label2.Font = New Font(Label2.Font, FontStyle.Underline)
Label3.Font = New Font(Label3.Font, FontStyle.Underline)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Label1.Font = New Font(Label1.Font, FontStyle.Italic)
Label2.Font = New Font(Label2.Font, FontStyle.Italic)
Label3.Font = New Font(Label3.Font, FontStyle.Italic)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button6.Click
Label1.ForeColor = Color.Red
Label2.ForeColor = Color.Green
Label3.ForeColor = Color.Chocolate
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button7.Click
Form2.Show()
Me.Hide()
End Sub
End Class
Form2:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Label1.Font = New Font(Label1.Font, FontStyle.Strikeout)
Label2.Font = New Font(Label2.Font, FontStyle.Strikeout)
Label3.Font = New Font(Label3.Font, FontStyle.Strikeout)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Label1.ForeColor = Color.PowderBlue
Label2.ForeColor = Color.HotPink
Label3.ForeColor = Color.Turquoise
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
Label1.Visible = True
Label2.Visible = False
Label3.Visible = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
Label1.BorderStyle = BorderStyle.FixedSingle
Label2.BorderStyle = BorderStyle.FixedSingle
Label3.BorderStyle = BorderStyle.FixedSingle
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Form3.Show()
Me.Hide()
End Sub
End Class
Form 3:
Public Class Form3
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button6.Click
Form4.Show()
Me.Hide()
End Sub
End Class
Form 4:
Public Class Form4
Private Property Form6 As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) * 3.142 * Val(TextBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
TextBox2.Text = Val(TextBox1.Text) * 2
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs)
End Sub
Private Sub Button3_Click_2(ByVal sender As System.Object, ByVal e As
System.EventArgs)
Form5.Show()
End Sub
Private Sub Button3_Click_3(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Form5.Show()
Me.Hide()
End Sub
End Class
Form 5:
Public Class Form5
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox1.Text) +
Val(TextBox2.Text)
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Form6.Show()
Me.Hide()
End Sub
End Class
Form 6:
Public Class Form6
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
TextBox2.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
TextBox2.Text = Val(TextBox1.Text) ^ (1 / 2)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
Form 7:
Public Class Form7
Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Label7.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
txt(total.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) +
Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) +
Val(TextBox8.Text))
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
txt(total.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) +
Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) +
Val(TextBox8.Text))
End Sub
End Class
