VB中如何让选择的多个复选框在一个文本框中分行显示？

VB中如何让选择的多个复选框在一个文本框中分行显示？

1、打开Visual Basic 6.0软件，新建一个标准exe工程，在新建的工程窗体设计器上添加一个有10个元素的Check数组控件和一个Text控件；

2、设置Text1的Multiline属性为true;

3、窗体上单击右键，选择查看代码，代码编辑如下：
Private Sub Check1_Click(Index As Integer)
    Dim i As Integer
    Dim str As String
    str = ""
    For i = 0 To 9
        If Check1(i).Value = 1 Then
            str = str & Check1(i).Caption & vbCrLf
        End If
    Next i
    Text1.Text = str
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
    Check1(i).Caption = i
Next i
End Sub4、单击运行按钮，或者按下F5按钮，运行该工程，勾选Check控件，可以使多选框在文本框中分行显示。

添加复选框数组（index 0-13）
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = vbChecked Then text1 = text1 & Check1(Index).Caption & vbCrLf
End Sub

不好意思，楼上代码没有问题，可是功能不能按提问者实现。
这个题的考点在“所选的每一个复选框的Caption属性占一行”
所以，首先需将文本框的MultiLine属性设为True，如果需加滚动条，可以设置文框的ScrollBars属性，之后再创建复选框数组，最后代码：
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = vbChecked Then text1 = text1 & Check1(Index).Caption & vbCrLf
End Sub