M = any input number from user.

E= output of Energy. Rest figure out yourself.

speed-light-in-vb.net.gif
Public Class mycalc
 'for close button declaration
 Private Const MF_BYPOSITION = &H400
Private Const MF_REMOVE = &H1000
Private Const MF_DISABLED = &H2

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As IntPtr,

ByVal nPosition AsInteger, ByVal wFlags As Long) As IntPtr
 Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr,

ByVal bRevert AsBoolean) As IntPtr
 Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As IntPtr)

As Integer
 Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As IntPtr) As Boolean
 Public Sub DisableCloseButton(ByVal hwnd As IntPtr)
Dim hMenu As IntPtr
 Dim menuItemCount As Integer

hMenu = GetSystemMenu(hwnd, False)
menuItemCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, menuItemCount - 1, MF_DISABLED Or MF_BYPOSITION)
Call RemoveMenu(hMenu, menuItemCount - 2, MF_DISABLED Or MF_BYPOSITION)
Call DrawMenuBar(hwnd)
End Sub

Private Sub mycalc_Load(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles MyBase.Load
Call DisableCloseButton(Me.Handle)
cmdcalculate.Text = "Calculate (%) Add"
 Label1.Hide()
Label2.Hide()
LblEdisplay.Hide()
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button1.Click
lbdisplay.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub

Private Sub Button7_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button7.Click
'e = lbldisplay, c= textbox2.text
 Label1.Show()
Label2.Show()
LblEdisplay.Show()
lbdisplay.Text = Val(TextBox1.Text) * (Val(TextBox2.Text) ^ 2)
End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button2.Click
lbdisplay.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub

Private Sub Button6_Click_1(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button6.Click
lbdisplay.Text = ""
 TextBox1.Text = ""
 TextBox2.Text = ""
 TextBox1.Show()
Label1.Hide()
Label2.Hide()
End Sub

Private Sub Button3_Click_1(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button3.Click
lbdisplay.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button4.Click
lbdisplay.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub

Private Sub Button5_Click_1(ByVal sender As System.Object,

ByVal e As System.EventArgs)Handles Button5.Click
lbdisplay.Text = Val(TextBox2.Text) / 100
End Sub

Private Sub cmdcalculate_Click_1(ByVal sender As System.Object,

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