Imports System
 
Public Class Test
	Public Shared Sub Main()
		' your code goes here
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQknIHlvdXIgY29kZSBnb2VzIGhlcmUKCUVuZCBTdWIKRW5kIENsYXNz

UHVibGljIENsYXNzIENhbGN1bGF0b3JGb3JtCiAgICBEaW0gbnVtMSBBcyBEb3VibGUKICAgIERpbSBudW0yIEFzIERvdWJsZQogICAgRGltIG9wZXJhdGlvbiBBcyBTdHJpbmcKCiAgICBQcml2YXRlIFN1YiBOdW1iZXJfQ2xpY2soc2VuZGVyIEFzIE9iamVjdCwgZSBBcyBFdmVudEFyZ3MpIEhhbmRsZXMgQnRuMC5DbGljaywgQnRuMS5DbGljaywgQnRuMi5DbGljaywgQnRuMy5DbGljaywgQnRuNC5DbGljaywgQnRuNS5DbGljaywgQnRuNi5DbGljaywgQnRuNy5DbGljaywgQnRuOC5DbGljaywgQnRuOS5DbGljawogICAgICAgIFR4dERpc3BsYXkuVGV4dCAmYW1wOz0gRGlyZWN0Q2FzdChzZW5kZXIsIEJ1dHRvbikuVGV4dAogICAgRW5kIFN1YgoKICAgIFByaXZhdGUgU3ViIE9wZXJhdG9yX0NsaWNrKHNlbmRlciBBcyBPYmplY3QsIGUgQXMgRXZlbnRBcmdzKSBIYW5kbGVzIEJ0bkFkZC5DbGljaywgQnRuU3ViLkNsaWNrLCBCdG5NdWwuQ2xpY2ssIEJ0bkRpdi5DbGljawogICAgICAgIG51bTEgPSBDRGJsKFR4dERpc3BsYXkuVGV4dCkKICAgICAgICBvcGVyYXRpb24gPSBEaXJlY3RDYXN0KHNlbmRlciwgQnV0dG9uKS5UZXh0CiAgICAgICAgVHh0RGlzcGxheS5DbGVhcigpCiAgICBFbmQgU3ViCgogICAgUHJpdmF0ZSBTdWIgQnRuRXF1YWxfQ2xpY2soc2VuZGVyIEFzIE9iamVjdCwgZSBBcyBFdmVudEFyZ3MpIEhhbmRsZXMgQnRuRXF1YWwuQ2xpY2sKICAgICAgICBudW0yID0gQ0RibChUeHREaXNwbGF5LlRleHQpCiAgICAgICAgCiAgICAgICAgU2VsZWN0IENhc2Ugb3BlcmF0aW9uCiAgICAgICAgICAgIENhc2UgJnF1b3Q7KyZxdW90OwogICAgICAgICAgICAgICAgVHh0RGlzcGxheS5UZXh0ID0gKG51bTEgKyBudW0yKS5Ub1N0cmluZygpCiAgICAgICAgICAgIENhc2UgJnF1b3Q7LSZxdW90OwogICAgICAgICAgICAgICAgVHh0RGlzcGxheS5UZXh0ID0gKG51bTEgLSBudW0yKS5Ub1N0cmluZygpCiAgICAgICAgICAgIENhc2UgJnF1b3Q7KiZxdW90OwogICAgICAgICAgICAgICAgVHh0RGlzcGxheS5UZXh0ID0gKG51bTEgKiBudW0yKS5Ub1N0cmluZygpCiAgICAgICAgICAgIENhc2UgJnF1b3Q7LyZxdW90OwogICAgICAgICAgICAgICAgVHh0RGlzcGxheS5UZXh0ID0gKG51bTEgLyBudW0yKS5Ub1N0cmluZygpCiAgICAgICAgRW5kIFNlbGVjdAogICAgRW5kIFN1YgoKICAgIFByaXZhdGUgU3ViIEJ0bkNsZWFyX0NsaWNrKHNlbmRlciBBcyBPYmplY3QsIGUgQXMgRXZlbnRBcmdzKSBIYW5kbGVzIEJ0bkNsZWFyLkNsaWNrCiAgICAgICAgVHh0RGlzcGxheS5DbGVhcigpCiAgICBFbmQgU3ViCkVuZCBDbGFzcw==

Public Class CalculatorForm
    Dim num1 As Double
    Dim num2 As Double
    Dim operation As String

    Private Sub Number_Click(sender As Object, e As EventArgs) Handles Btn0.Click, Btn1.Click, Btn2.Click, Btn3.Click, Btn4.Click, Btn5.Click, Btn6.Click, Btn7.Click, Btn8.Click, Btn9.Click
        TxtDisplay.Text &= DirectCast(sender, Button).Text
    End Sub

    Private Sub Operator_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click, BtnSub.Click, BtnMul.Click, BtnDiv.Click
        num1 = CDbl(TxtDisplay.Text)
        operation = DirectCast(sender, Button).Text
        TxtDisplay.Clear()
    End Sub

    Private Sub BtnEqual_Click(sender As Object, e As EventArgs) Handles BtnEqual.Click
        num2 = CDbl(TxtDisplay.Text)
        
        Select Case operation
            Case "+"
                TxtDisplay.Text = (num1 + num2).ToString()
            Case "-"
                TxtDisplay.Text = (num1 - num2).ToString()
            Case "*"
                TxtDisplay.Text = (num1 * num2).ToString()
            Case "/"
                TxtDisplay.Text = (num1 / num2).ToString()
        End Select
    End Sub

    Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click
        TxtDisplay.Clear()
    End Sub
End Class