Vb.net 在所有选中列表框vb中选择所有选定索引

我想将所有选中的索引保存在表单中的所有checkedlistbox中，但单击“提交”按钮时什么也没有发生

Private Sub cmdSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click
    Dim str As String
    For Each c As Control In Me.tabPage1.Controls
        If TypeOf c Is CheckedListBox Then
            str = CType(c, CheckedListBox).SelectedIndex
            ListBox2.Items.Add(str)
        End If
    Next c
End Sub

• 以上代码现在已经编辑完毕，感谢伊本纳先生给了我这个想法

---

也许您的

CheckedListBox

控件在另一个容器中，比如面板，而不是表单？CheckedListBox在tcExam TabControl控件中，我编辑了上述代码，但仍然没有发生任何事情。我无法理解它如何不能返回字符串。如果在If typeof部分中放置断点，它会被命中吗？我只是想，我不能在tabcontrol中获取值，而只能在tabpages中获取值。现在我是否必须为我拥有的每个选项卡页复制此代码？