I have a treeview , and each item can be checked and unchecked(that is , each item has a check box in front of it). Now I want to get the checked items , how?

It is different from the selected item, I try to use the following code , I can not get what I want.

Dim subItems As TItems
Set subItems = TreeView("TestTV").Items

For Each obj In subItems
'judge whether the item is selected
If obj.item(2) = True Then
msgBox obj.item(1)
End If