Hacer una calculadora en Visual Basic .NET 2013

Vídeo acerca de cómo hacer una calculadora sencilla en Visual Basic .NET 2013 (Versión Express).

Aquí debajo coloco las líneas de programación por sí quieren copiar algunas:

Dim Operacion As String
Dim ValorResultado As Nullable(Of Double) = Nothing
Dim Valor2 As Nullable(Of Double) = Nothing
Dim SePresionaOperador As Boolean

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "1"
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "2"
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "3"
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "4"
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "5"
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "6"
End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "7"
End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "8"
End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "9"
End Sub

Private Sub Button0_Click(sender As Object, e As EventArgs) Handles Button0.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "0"
End Sub

Private Sub ButtonPunto_Click(sender As Object, e As EventArgs) Handles ButtonPunto.Click
EvaluaRestriccionesParaConcatenar()
If InStr(TxtResultado.Text, ".", CompareMethod.Text) = 0 Then
TxtResultado.Text &= "."
End If
End Sub

Private Sub ButtonSuma_Click(sender As Object, e As EventArgs) Handles ButtonSuma.Click
EvaluayHazOperacion()
Operacion = "+"
End Sub

Private Sub ButtonResta_Click(sender As Object, e As EventArgs) Handles ButtonResta.Click
EvaluayHazOperacion()
Operacion = "-"
End Sub

Private Sub ButtonMultiplicacion_Click(sender As Object, e As EventArgs) Handles ButtonMultiplicacion.Click
EvaluayHazOperacion()
Operacion = "*"
End Sub

Private Sub ButtonDivison_Click(sender As Object, e As EventArgs) Handles ButtonDivison.Click
EvaluayHazOperacion()
Operacion = "/"
End Sub

Private Sub ButtonBorrar_Click(sender As Object, e As EventArgs) Handles ButtonBorrar.Click
TxtResultado.Text = "0"
Valor2 = Nothing
ValorResultado = Nothing
End Sub

Private Sub ButtonIgual_Click(sender As Object, e As EventArgs) Handles ButtonIgual.Click
EvaluayHazOperacion()
Operacion = ""
End Sub

Public Sub EvaluayHazOperacion()
SePresionaOperador = True
Valor2 = Val(TxtResultado.Text)
If ValorResultado IsNot Nothing Then
Select Case Operacion
Case "+"
ValorResultado = ValorResultado + Valor2
Case "-"
ValorResultado -= Valor2
Case "*"
ValorResultado *= Valor2
Case "/"
ValorResultado /= Valor2
End Select
TxtResultado.Text = ValorResultado
Else
ValorResultado = Valor2
End If
End Sub

Public Sub EvaluaRestriccionesParaConcatenar()
If SePresionaOperador = True Then
TxtResultado.Text = ""
SePresionaOperador = False
ElseIf TxtResultado.Text = "0" Then
TxtResultado.Text = ""
End If
End Sub