Dictionary使用并获取键值

        Dim dic As New Dictionary(Of String, String)()
        dic.Add("aa", 11")
        dic.Add("bb，22")
        dic.Add("cc", "33")

        cklist_reason.Items.Clear()
        For Each key As String In dic.Keys
            cklist_reason.Items.Add(key.ToString())
        Next