Speed of Light C in VB.NET

ByVal e AsSystem.EventArgs) Handles cmdcalculate.Click
lbdisplay.Text = Val(TextBox2.Text) / 100
If cmdcalculate.Text = "Calculate (%) Add" Then
cmdcalculate.Text = "Calculate (%) Subtract"
lbdisplay.Text = Val(TextBox1.Text) + lbdisplay.Text
Else
lbdisplay.Text = Val(TextBox1.Text) - lbdisplay.Text
cmdcalculate.Text = "Calculate (%) Add"
Exit Sub
End If
End Sub

Private Sub Button8_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button8.Click
' m = 3.14, c= r, lbldisplay = A
Label1.Show()
Label2.Show()
TextBox1.Hide()
lbdisplay.Text = 3.14 * (Val(TextBox2.Text)) ^ 2

End Sub

Private Sub Button9_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button9.Click
' m = 3.14, c= r, lbldisplay = A
Label1.Show()
Label2.Show()
TextBox1.Hide()
lbdisplay.Text = (2 * 3.14) * Val(TextBox2.Text)
End Sub

Private Sub Button10_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button10.Click
'L=textbox1.text, W=textbox2.text, lbdisplay =A
'L = m, W = c
Label1.Show()
Label2.Show()
lbdisplay.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub Button11_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button11.Click
'L=textbox1.text, W=textbox2.text, lbdisplay =Arean of triangle
'L = m, W = c
Label1.Show()
Label2.Show()
lbdisplay.Text = 1 / 2 * Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub Button12_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button12.Click
'lbdisplay = Area of square, c = textbox2.text
Label1.Hide()
Label2.Show()
TextBox1.Hide()
lbdisplay.Text = (Val(TextBox2.Text)) ^ 2
End Sub

Private Sub Button13_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button13.Click
'b=textbox1.text, h=textbox2.text, lbdisplay =A
'b = m, h = c
Label1.Show()
Label2.Show()
lbdisplay.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub Button14_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button14.Click
'a=textbox1.text, h=textbox2.text, lbdisplay =A
'a = m, h = c
Dim b As Integer
Label1.Show()
Label2.Show()
b = InputBox("Enter value of b")
lbdisplay.Text = 1 / 2 * (Val(TextBox1.Text) + b) * Val(TextBox2.Text)

End Sub

Private Sub Button15_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button15.Click
'lbdisplay = Area of square, r(c) = textbox2.text, Th = Theta
Dim Th As Integer
Th = InputBox("Enter value of theta")
Label1.Hide()
Label2.Show()
TextBox1.Hide()
lbdisplay.Text = 1 / 2 * (Val(TextBox2.Text)) ^ 2 * Th
End Sub

Private Sub Button16_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button16.Click
'a=textbox1.text, b=textbox2.text, lbdisplay =Arean of Ellipse
'a = m, b = c
Label1.Show()
Label2.Show()
lbdisplay.Text = 3.14 * Val(TextBox1.Text) * Val(TextBox2.Text)

End Sub

Private Sub Button17_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button17.Click
Dim msg As String
Dim title As String
Dim style As String
Dim response As String
msg = "Do you want to continue?"
style = MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Question Or MsgBoxStyle.YesNo
title = "Quitting Calculator APP"
response = MsgBox(msg, style, title)
If response = MsgBoxResult.No Then
MsgBox("You cannot quit, clear values please!")
Exit Sub
Me.Close()
Else
End
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object,

ByVal e AsSystem.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles GroupBox1.Enter

End Sub
End Class