vb中关于标签和文本框的操作

用TextWidth函数：
添加一个控件数组，名称为Text1，数量自定。
Private Sub Form_Load()
ss = "中新网6月28日电(王忠会) 综合报道，2011年度菲美“海上联合战备训练演习”(CARAT)将于今日举行，演习将持续到7月8日，共11天。目前3艘美国海军舰艇已抵达菲律宾西南部岛屿省份巴拉望，菲律宾4艘海军舰艇将与这3艘美军舰艇一起参加演习。有分析称，菲律宾为在近期的南海争端中“壮胆”，积极寻求美国支持；而美国为给“重返亚洲”寻找契机，也采取了主动的态度。面对近来持续紧张的南海局势，菲律宾军方官员反复强调称，这次军演“与南海问题无关”。"
For i = 0 To Text1.Count - 1
For j = 1 To Len(ss)
If Me.TextWidth(Left(ss, j)) >= Text1(i).Width Then Exit For
Next
If j = 1 Then Exit For
Text1(i) = Left(ss, j - 1)
ss = Mid(ss, j)
Next
End Sub