rootnode.ChildNodes(i).Attributes(1).Value = CheckedListBox1.GetItemChecked(i).ToString 29 Next 30 doc.Save(strPathConfig) 31 End Function 32 33 Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 34 ''''需要清除CheckedListBox内的Items 35 CheckedListBox1.Items.Clear() 36 LoadConfig() 37 End Subend---