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

chem