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
