Tabla De Formulario

Los codigos que utilizamos para esto fueron:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub


Private Sub Text2_GotFocus()
Text2.Text = Format(Now, "dd-mm-yyyy")
Text3.SetFocus
End Sub




Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub


Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub



Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub



Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

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