新建From1（窗体），Text1（TextBox，MultiLine选True，ScrollBars选3），代码：

Private Sub Form_Resize()
    Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

Me就是本窗体。