CheckedBox 全選/全不選

'全選"
For itm = 0 To CLBxmllist.Items.Count - 1
CLBxmllist.SetItemChecked(itm, True)
'CLBxmllist.SetSelected(itm, True) '設定取得 (現在用不著)
Next
'全不選"

For itm = 0 To CLBxmllist.Items.Count - 1
CLBxmllist.SetItemChecked(itm, False)
Next