Escribir texto en un formulario

[triump]

Gracias Avellaneda pero lo que no se es colocarlo en lo que tengo ahora que es esto:

Private Sub Form_Click()
Dim x As New frmPostIt
x.Top = frmPostIt.Top
x.Left = frmPostIt.Left
x.Show
End Sub

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