通过设置text的multiline属性设置为true，这样才能显示多行文本，且能显示回车符，还可以通过设置text1的scrollbars属性，让其显示滚动条，以便阅读text中的内容。
Private Sub Text1_Change()Label1.Caption = Len(Text1.Text)End Sub另外也可以放在定时器里检测。
