Calculadora com áudio em vb.net

Audio Calculator em VB.Net
Public Class Form1

Public Public Public Public

x As Single y As Single r As Single operador As String

'Ponto Decimal Private Sub Ponto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ponto.Click Dim blnPonto As Boolean = False If blnPonto = False Then 'Se não existir vírgula no número 'Coloca-se a vírgula Display2.Text = Display2.Text & "." blnPonto = True 'alterando o valor da variável para TRUE End If End Sub Private Sub Zero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Zero.Click If Display2.Text "0" Then Display2.Text = Display2.Text & "0" Else Display2.Text = Val(Display1.Text) \ 10 End If End Sub Private Sub Um_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Um.Click r = Val("0") Display2.Text = Display2.Text & "1" End Sub Private Sub Dois_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dois.Click r = Val("0") Display2.Text = Display2.Text & "2" End Sub Private Sub Três_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Três.Click r = Val("0") Display2.Text = Display2.Text & "3" End Sub Private Sub Quatro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quatro.Click r = Val("0") Display2.Text = Display2.Text & "4" End Sub Private Sub Cinco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cinco.Click

r = Val("0") Display2.Text = Display2.Text & "5" End Sub Private Sub Seis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Seis.Click r = Val("0") Display2.Text = Display2.Text & "6" End Sub Private Sub Sete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sete.Click r = Val("0") Display2.Text = Display2.Text & "7" End Sub Private Sub Oito_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Oito.Click r = Val("0") Display2.Text = Display2.Text & "8" End Sub Private Sub