Public Class Form1

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

[pic 1]

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

Public Class Form1

    Dim Operacion As String

    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 As EventArgs) Handles Num1.Click

        EvaluaRestriccionesParaConcatenar()

        Resultado.Text &= "1"

    End Sub

    Private Sub Num2_Click(sender As Object, e As EventArgs) Handles Num2.Click

        EvaluaRestriccionesParaConcatenar()

        Resultado.Text &= "2"

    End Sub

    Private Sub Num3_Click(sender As Object, e As EventArgs) Handles Num3.Click

        EvaluaRestriccionesParaConcatenar()

        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 Sub Num6_Click(sender As Object, e As EventArgs) Handles Num6.Click

        EvaluaRestriccionesParaConcatenar()

        Resultado.Text &= "6"

    End Sub

    Private Sub Num7_Click(sender As Object, e As EventArgs) Handles Num7.Click

        EvaluaRestriccionesParaConcatenar()

        Resultado.Text &= "7"

    End Sub

    Private Sub Num8_Click(sender As Object, e As EventArgs) Handles Num8.Click

        EvaluaRestriccionesParaConcatenar()

        Resultado.Text &= "8"

    End Sub

    Private Sub Num9_Click(sender As Object, e As EventArgs) Handles Num9.Click

        EvaluaRestriccionesParaConcatenar()

        Resultado.Text &= "9"

    End Sub

    Private Sub Num0_Click(sender As Object, e As EventArgs) Handles Num0.Click

        EvaluaRestriccionesParaConcatenar()

        Resultado.Text &= "0"

    End Sub

    Private Sub Punto_Click(sender As Object, e As EventArgs) Handles Punto.Click

        EvaluaRestriccionesParaConcatenar()

        If InStr(Resultado.Text, ".", CompareMethod.Text) = 0 Then

...