新建From1(窗体),Text1(TextBox,MultiLine选True,ScrollBars选3),代码:
Private Sub Form_Resize() Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub