如Label1(a)的控件组为1-50

Private Sub Command2_Click()
Dim a As Integer
Dim b As String
For a = 0 To 49
If Label1(a).Caption <> vbNullString Then
b = Label1(a).Caption
Text1.Text = b
End If
Next
End Sub

请问为什么这样编写，在Text1里只能显示最后一个数的呢？怎么才能显示全部数呢？
如label1(a).Caption 里分别为1-50，50个数，如何才能用Command2_Click()事件
把Label1(a).Caption里的不为空的数字显示在Text1里，并用“逗号”分隔开呢？
请帮忙指正~~~充心感谢！

Private Sub Command2_Click()
Dim a As Integer
Dim b As String
B="数据为：" & vbcrlf
For a = 0 To 49
If len(Label1(a).Caption) Then b = b & Label1(a).Caption & iif(a mod 9=0,vbcrlf,",")
Next
Text1.Text = b
End Sub
'还要注意把Tetx1中的允许多行显示设置为True.

[此贴子已经被作者于2007-6-5 17:27:03编辑过]

谢谢~~学习了~。回去分析一下！