This worked for me, although the forms border goes a little weird because of the Sleep call:
..might help you a bit.VB Code:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Resize() Text1.Height = Me.Height - 500 Text1.Width = Me.Width - 500 DoEvents Sleep (25) End Sub
chem




Reply With Quote