关于标签使用的一个有关问题

关于标签使用的一个问题
我放一个标签在窗体中，我想固定它的宽度，但是标签的高度根据标签内容的多少进行变化。想了一些办法不能实现，有没有高手能提出一点思路？谢谢

[解决办法]
autosize=false
[解决办法]
autosize=True
然后当达到宽度时，把现实在标签的字符串换行即可。
例如：每行只显示4个字符：

VB code

Option ExplicitPrivate Sub Form_Load()    With Label1        .AutoSize = True        .Caption = "中华人民" & Chr(13) & "共和国"    End WithEnd Sub
[解决办法]
给你个小例子，自己去举一反三吧。
VB code
Private Sub Form_Load()    Label1.AutoSize = True    Label1 = "1234567890123"End SubPrivate Sub Label1_Change()    Static f As Boolean    If f Then f = False: Exit Sub    For i = 1 To Len(Label1)        x = x & Mid(Label1, 5 * (i - 1) + 1, 5) & vbCrLf    Next    f = True    Label1.Caption = xEnd Sub