求救！！如何换行？

Question

有一个很长的字符串， 在Label控件中显示不下，如何在其中加入换行符，
比如说：每15个字符加一个换行。

Answer 1

label1.caption = "adfdfdf" & vblf & "jfdlkjfdl"

Answer 2

Label1.Caption = "12345678945612" & vbCrLf & "wrewrew"

Answer 3

不对啊！我的这个字符串是从数据库中返回的。很长根本不可能手工添加vbcrlf只能编程解决。

Answer 4

dim lngLoop as long 
for lngloop=1 to len(str)/15
  str=mid(str,(lngloop-1)*15+lngloop,15) & vblf & mid(str,lngLoop*15+lngloop)
next lngloop

Answer 5

楼上的方法也可，但如果从数据库来的为什么不用textbox控件呢，自动换行还有滚动条，比label好看极了。