简单的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下通过！！
