¿Cómo hacer una calculadora en VB?

Nombre del control Título Nombre del control Título \x0d\Form 1 Calculadora \x0d\Button Comando 1 (0) ~ Comando1 (9) Título 0 ~ 9 \x0d\ Botón Comando6 (0) + \ x0d\Button Comando 6 (1) - \x0d\Botón Comando 6 (2) *\x0d\Botón Comando 6 (3) /\x0d\Botón Comando 2 Retroceso\x0d\Botón Comando 3 Borrar\x0d\Botón Comando 4 .\x0d\ Comando de botón 5 = \x0d\\x0d\Dim shu1 como único, shu2 como único, suanfu como cadena\x0d\'Defina dos variables numéricas de precisión simple para almacenar los números involucrados en la operación y un tipo de carácter para almacenar la operación. Symbol\x0d\\x0d\Private Sub Command1_Click(Index As Integer)\x0d\Text1.Text = Text1.Text & Command1(Index).Caption\x0d\'Conecte el evento de clic del comando1 con el contenido que se muestra en el cuadro de texto \ x0d\\x0d\End Sub\x0d\Private Sub Command2_Click() 'Si cometes un error, puedes retroceder un espacio a la vez\x0d\If Text1.Text = "" Then\x0d\Exit Sub\x0d \End If\x0d \Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)\x0d\End Sub\x0d\Private Sub Command3_Click()\x0d\ Text1.Text = "" 'Borrar\ x0d\End Sub\ x0d\Private Sub Command4_Click()\x0d\Text1.Text = Text1.Text + "."\x0d\If (InStr(Text1.Text, ".") = 1) Entonces 'El primer dígito no puede ser un decimal\x0d\ Text1.Text = ""\x0d\End If\x0d\\x0d\If InStr(Text1.Text, ".")