Also, I would change the Resize() function so that it always scrolls to the left of the entered text when it resizes. Like so...

 Code:
Function Resize( $object )
  $TextBox1.width = PixelStrSize($TextBox1.text)
  $TextBox1.SelectionStart = 0
  $TextBox1.SelectionLength = 0
EndFunction