Crea un formulario con un control con pestañas (haz clic con el botón derecho del ratón sobre la Caja de herramientas, haz clic en Components. En Components, Controls, selecciona el control Microsoft Tabbed Dialog Control 6.0 (SP5) y haz clic en Aceptar. El control aparecerá en la Caja de herramientas.), en la primera sección crea seis etiquetas, seis cajas de texto y dos botones.

En la segunda sección crea tres etiquetas, tres cajas de texto y un botón.

En este programa programaremos las cajas de texto para que el cursor avance con Enter a la siguiente caja de texto. Haz doble clic en la primera caja de texto y en la caja de opciones de eventos selecciona KeyPress y escribe el siguiente código:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

La caja de texto 2 la programaremos para que se introduzca automáticamente la fecha. Haz doble clic en la caja de texto 2, selecciona el evento GotFocus y escribe el siguiente código:

Private Sub Text2_GotFocus()

Text2.Text = Format(Now, "dd-mm-yyyy")

Text3.SetFocus

End Sub

Programa las cajas de texto (hasta la número seis) para que el cursor avance a la siguiente caja de texto.

El botón Salir

Private Sub Command1_Click()

Unload Me

End

End Sub

El botón Limpiar

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Text1.SetFocus

End Sub

El botón Mostrar Datos

Private Sub Command3_Click()

Text7 = Text1 & " " & Text3

Text8 = Text4

Text9 = Text5

End Sub