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
转载于:https://www.cnblogs.com/swarb/archive/2012/08/28/9924393.html