vb中label自动换行的方法

Dim a() As String '定义一个数组
Private Sub Command1_Click()
a() = Split(Text1.Text, vbCrLf)'以Text1的回车符分割Text1的内容。
For b = 0 To UBound(a) '从0到数组a的最大数字
Label1.Caption = Label1.Caption & vbCrLf & a(b) '一行一行输入Label1。这里有一个重点，就是输入回车用vbCrLf，这是回车符。
Next ’结束循环

End Sub

**************************

Label1.Caption = "你好!" & vbCrLf & "好吗"

************************************

VB中label控件的文字换行

代码如下：
Str1 = "TryTryString 这是一个测试数据" 'Str1是数据库的记录

Dim BlockStrLen As Integer
BlockStrLen = 2 ’字符块的长度，这里设置为2

Label1.Caption = ""
Do While Len(Str1) > BlockStrLen
Label1.Caption = Label1.Caption & Left(Str1, BlockStrLen) & vbCrLf
Str1 = Right(Str1, Len(Str1) - BlockStrLen)
Loop

Label1.Caption = Label1.Caption & Str1