Calculator with all arithmetic functions in VB.NET.

PROPERTIES:

Button1 To Button9
Name(Button1,..,Button9)	B1,B2,..,B9
Text(Button1,..,Button9)	1,2,..,9
Button10,Button11,Button12,Button13,Button14,Button15,Button16,Button17
Text(Button10,Button11,Button12,Button13,Button14,Button15,Button16,Button17)	0,00,.,+,-,*,/,MOD
Name(Button10,Button11,Button12,Button13,Button14,Button15,Button16,Button17)	B0,B00,BDOT,plus,min,mul,div,modu
TabIndex(Button13,Button14,Button15,Button16,Button17)	1,2,3,4,5
Button18
Name	EQUL
Text	=
Button19
Name	c
Text	C
Button20
Name	s
Text	SQRT
Button21
Name	X1
Text	1/X
Button22
Name	X2
Text	X*X
TextBox1
Text

CODEING:

Imports System.Math
Public Class Form1
    Dim ans As Double = 0
    Dim temp As Double = 0
    Dim opcode As Integer = 0
    Dim dot As Short = 0
    Private Sub B1_Click(sender As Object, e As EventArgs) Handles B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click, B8.Click, B9.Click, B0.Click, B00.Click
'This Logic solve problem like user input a/b+c*d-e= or a*b=/c=
'i.e. 130/65+38*1-20=  Then 20 is display or 10*200=/20= Then 100 is Display
        Select Case opcode
            Case 0
                TextBox1.Text = TextBox1.Text & sender.text
                ans = TextBox1.Text
            Case 1
                TextBox1.Text = TextBox1.Text & sender.text
                ans = ans - temp
                ans = ans + Val(TextBox1.Text)
                temp = Val(TextBox1.Text)
            Case 2
                TextBox1.Text = TextBox1.Text & sender.text
                ans = ans + temp
                ans = ans - Val(TextBox1.Text)
                temp = Val(TextBox1.Text)
            Case 3
                TextBox1.Text = TextBox1.Text & sender.text
                temp = ans - temp
                ans = temp * Val(TextBox1.Text)
                temp = ans - temp
            Case 4
                TextBox1.Text = TextBox1.Text & sender.text
                temp = temp + 1
                ans = (temp * ans) / Val(TextBox1.Text)
                temp = Val(TextBox1.Text) - 1
            Case 5
                temp = Val(TextBox1.Text) * temp + ans
                TextBox1.Text = TextBox1.Text & sender.text
                ans = temp Mod Val(TextBox1.Text)
                temp = Math.Floor(temp / Val(TextBox1.Text))
        End Select
    End Sub
    Private Sub EQUL_Click(sender As Object, e As EventArgs) Handles EQUL.Click
        TextBox1.Text = ans
        opcode = 0
    End Sub
    Private Sub plus_Click(sender As Object, e As EventArgs) Handles plus.Click, min.Click, mul.Click, div.Click, modu.Click
        TextBox1.Text = ""
        opcode = sender.TabIndex
        temp = 0
    End Sub
    Private Sub BDOT_Click(sender As Object, e As EventArgs) Handles BDOT.Click
        If dot = 0 Then
            TextBox1.Text = TextBox1.Text & sender.text
            dot = 1
        End If
    End Sub
    Private Sub clear_Click(sender As Object, e As EventArgs)
        TextBox1.Text = ""
        temp = 0
        dot = 0
        ans = 0
    End Sub
    Private Sub SQRT_Click(sender As Object, e As EventArgs) Handles S.Click
        TextBox1.Text = Sqrt(Val(TextBox1.Text))
        ans = Val(TextBox1.Text)
    End Sub
    Private Sub X2_Click(sender As Object, e As EventArgs) Handles X2.Click
        TextBox1.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
        ans = Val(TextBox1.Text)
    End Sub
    Private Sub X1_Click(sender As Object, e As EventArgs) Handles X1.Click
        TextBox1.Text = 1 / Val(TextBox1.Text)
        ans = Val(TextBox1.Text)
    End Sub
End Class

DESIGNING: