Calculadora Visual Basic

Public Class FormularioEntrada
Dim primernumero As Single
Dim segundonumero As Single
Dim resultadocalculo As Single
Dim calculo As Single
Private Sub Borrar_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles Borrar.Click
comision.Clear()
End Sub
Private Sub num1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles num1.Click
comision.Text = comision.Text & "1"
End Sub
Private Sub num2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num2.Clickcomision.Text = comision.Text & "2"
End Sub
Private Sub num3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num3.Click
comision.Text = comision.Text & "3"
EndSub
Private Sub num4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num4.Click
comision.Text = comision.Text & "4"
End Sub
Private Subnum5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num5.Click
comision.Text = comision.Text & "5"
End Sub
Private Sub num6_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles num6.Click
comision.Text = comision.Text & "6"
End Sub
Private Sub num7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesnum7.Click
comision.Text = comision.Text & "7"
End Sub
Private Sub num8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num8.Click
comision.Text =comision.Text & "8"
End Sub
Private Sub num9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num9.Click
comision.Text = comision.Text & "9"
End SubPrivate Sub num0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles num0.Click
comision.Text = comision.Text & "0"
End Sub
Private Sub numpunto_Click(ByVal...