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
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