Try this:
Code:
Private Sub Form_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) >= CreateNewLineLength then
Text1.Multiline = true
Text1.Height = Text1.Height * 2
Text2.Top = Text1.Height + Text1.Top + SpaceBetweenBoxes
...
End If
End Sub
|
Last edited by AndreRyan; 03-22-2002 at 02:40 AM.
|