Tabla de Multiplicar

Estos son los codigos que utilizamos para realizarla
Private Sub Command1_Click()
Private Sub command1_clikes()
Dim rea As Long, retorno
For f = 1 To 12
res = Text * f
retorno = cht(13) & Chr(10)
Text2 = Text1 & "x" & f & "=" & res & retorno
Next f


End Sub

Private Sub Command2_Click()
Private Sub comand2_clik()
Text1 = ""
Text2 = ""
Text1.SetFocus


End Sub