¿Cómo programar un programa completo para simular una calculadora de bolsillo en VB.NET?

Formulario de protección pública C 1

Subbotón privado 1_Click(ByVal remitente como System.Object, ByVal e As System.EventArgs) Maneja el botón 1.Click

Atenuar c como Char

c = Trim(TextBox3.Text)

Seleccionar caso c

Caso " "

TextBox4.Text = Val(TextBox1 .Text) Val(TextBox2.Text)

Caso "-"

TextBox4.Text = Val(TextBox1.Text) - Val( TextBox2.Text)

Caso "*"

TextBox4.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

Caso "\"

Si Val( TextBox2.Text) = 0 Entonces

MsgBox("El denominador es 0")

Else

TextBox4.Text = Val(TextBox1.Text) \ Val (TextBox2.Text)

Finalizar si

Caso "/"

Si Val(TextBox2.Text) = 0 Entonces

MsgBox ("El denominador es 0")

Else

TextBox4.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

Fin Si

End Select

End Sub

Sub Button2_Click privado (ByVal remitente como System.Object, ByVal y As System.EventArgs) maneja Button2.Click

Fin

Fin Sub

Fin Clase