程序代码：

Private Sub Form_Resize() '文本框大小发生变化时
 On Error Resume Next   '当程序发生错误时转到下一步代码的处理; On Error GoTo ErrHandler发生错误时转向错误处理器程序
  RTB1.Move 100, 100, Form1.ScaleWidth - 200, Form1.ScaleHeight - 200 '文本框所在的位置
End Sub

RTB1.Move 100, 100, Form1.ScaleWidth - 200, Form1.ScaleHeight - 200 '这个语句将界面占据了，并且覆盖了其他控件，因此就不见了。

[此贴子已经被作者于2017-8-28 16:18编辑过]