calculadora

1- Hacer la interfaz tal y como se muestra en la siguiente imagen

Nota: Tanto el texto como el nombre de cada botón solo dándole click y escribiendo.

Public Class Form1

Dim Operacion AsString
Dim ValorResultado As Nullable(Of Double) = Nothing
Dim Valor2 As Nullable(Of Double) = Nothing
Dim SePresionaOperador As Boolean
Private Sub Num1_Click(sender As Object, e AsEventArgs) Handles Num1.Click
EvaluaRestriccionesParaConcatenar()
Resultado.Text &= "1"

End Sub

Private Sub Num2_Click(sender As Object, e As EventArgs) Handles Num2.ClickEvaluaRestriccionesParaConcatenar()
Resultado.Text &= "2"
End Sub

Private Sub Num3_Click(sender As Object, e As EventArgs) Handles Num3.ClickEvaluaRestriccionesParaConcatenar()
Resultado.Text &= "3"
End Sub

Private Sub Num4_Click(sender As Object, e As EventArgs) Handles Num4.Click
EvaluaRestriccionesParaConcatenar()
Resultado.Text &= "4"End Sub

Private Sub Num5_Click(sender As Object, e As EventArgs) Handles Num5.Click
EvaluaRestriccionesParaConcatenar()
Resultado.Text &= "5"
End Sub

Private SubNum6_Click(sender As Object, e As EventArgs) Handles Num6.Click
EvaluaRestriccionesParaConcatenar()
Resultado.Text &= "6"
End Sub

Private Sub Num7_Click(sender As Object, e AsEventArgs) Handles Num7.Click
EvaluaRestriccionesParaConcatenar()
Resultado.Text &= "7"
End Sub

Private Sub Num8_Click(sender As Object, e As EventArgs) Handles Num8.ClickEvaluaRestriccionesParaConcatenar()
Resultado.Text &= "8"
End Sub

Private Sub Num9_Click(sender As Object, e As EventArgs) Handles Num9.ClickEvaluaRestriccionesParaConcatenar()
Resultado.Text &= "9"
End Sub

Private Sub Num0_Click(sender As Object, e As EventArgs) Handles Num0.Click
EvaluaRestriccionesParaConcatenar()
Resultado.Text &=...