Sub Form_Resize ()
   
   '--- Resize the Term (display) control and
   '    status bar.
   Line1.X2 = ScaleWidth
   Term.Move 0, Line1.Y2 + 15, ScaleWidth, ScaleHeight - Line1.Y2 + 15
   
End Sub