CALCULATOR

ESTOS SON LOS CODIGOS QUE VAN EN EL SIGUIENTE PROGRAMA:

Private Sub Command1_Click()

Dim res As Long, retorno

For n = 1 To 10

res = Text1 * n

retorno = Chr(13) & Chr(10)

Text2 = Text2 & Text1 & "x" & n & "=" & res & retorno

Next n

End Sub

el botón Nueva Tabla

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text1. SetFocus

End Sub

El Botón Salir

Private Sub Command3_Click()

If MsgBox ("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "Qué Ya Te Quieres Ir?")

End

Else

Cancel = 1

EndIf

End Sub