Private Sub menu_NewFile_Click()
Dim t As New Form1
Static i As Integer
    Form1.Hide
    i = i + 1
    t.Show
    t.Caption = "新建文档" & i
End Sub
Private Sub Form_Resize()
RichTextBox1.Left = 0
RichTextBox1.Top = 0
RichTextBox1.Width = Form1.ScaleWidth
RichTextBox1.Height = Form1.ScaleHeight
End Sub
为什么创建的新文档缩放的时候文本框不能自动调节大小！！

回答：该调整窗体大的代码，所处位置不对，应放在load事件中，即窗体创建时，马上执行。