Escribir texto en un formulario

[Avellaneda]

Hola.

Sí se puede escribir directamente texto en el formulario:

Código:

Private Sub Form_KeyPress(KeyAscii As Integer)
    Dim texto As String
    texto = Chr(KeyAscii)
    ' si el texto llega al margen derecho del form, nueva línea
    If Me.CurrentX >= Me.ScaleWidth - 90 Then Me.Print Chr(13)
    Me.Print texto;
End Sub

Para lo otro puedes usar 4 CommandButton, o mejor un contrl TabStrip (o SSTab).

Un saludo