VB问题为什么label里面不能自动换行？

Question

想要的效果：读取from1时候label1有边框和白色底色，文本"qqq"。按下command1之后label1按原来的宽度显示新的文本拼自动换行(wordwrap)而且边框只改变高度但紧贴着文本（ausize）。

请问下面的代码为什么不能自动换行,有错的话帮忙修改或写一个行的？
label有边框和白色底色。还试过在label的属性窗口把autosize和wordwrap都选true都不行。

Private Sub Form_Load()
Label1.Caption = "qqq"
End Sub

Private Sub Command1_Click()
Label1.AutoSize = True
Label1.WordWrap = True
Label1.Fontsize = 15
Label1.Caption = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
End Sub
效果是按了command之后label中显示的是字体大小为15的aaa（很多个）。边框按原来的宽度显示aaa（很多个）拼自动换行(wordwrap)而且只改变高度但紧贴着文本（ausize）。

Answer 1

想换行的话这样写:
Label1.Caption = "qqq" & vbcr & "QQQ"

vbcr 是换行符

结果就是:
qqq
QQQ

你说的用lable难以实现,你可以考虑使用TEXT控件,将其属性设置为 multiline=ture;lock=ture 这样也可以达到你说的效果

哈哈 vbcr 和 vbcrlf 的效果是一样的,不信楼上的试试看

Answer 2

label1.caption = "a " & vbCrLf & "b"

vbCrLf 表示换行符.而不是那位朋友说的vbcr