简单的label有关问题

简单的label问题
当设置label控件的autosize为ture时，我想控制它的宽度，但高度可以根据读取的文件无限延伸下去

或者不设置autosize为true，有什么方法让它的高度可以无限延伸，而保持宽度不变呢

------解决方案--------------------
Label是可以换行的，将Label的AutoSize的属性设置为True，然后将数据库记录字符串Str1分割为规定长度，对于Label控件是可以使用Vbcrlf换行符的~~~``


代码如下：
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

以上程序，在XP＋VB6.0下通过！！