【求助】关于checkedlishbox的问题

Question

想把一个复选列表框的选中项目显示在一个列表框中，但是下面的程序总是实现不了，请大家帮帮忙！Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim index As Integer = 0
        Dim str As String
        listbox1.Items.Add(checklistbox1.CheckedIndices)
        While index < checklistbox1.SelectedIndices.Count
            Str = checklistbox1.CheckedIndices(index)
            listbox1.Items.Add(Str)            index += 1
        End While
    End Sub

Answer 1

我也想知道，正在找這方面的資料~~~~~