I am generating a list of tests within a test set:

Set TestSetFact = TDC.TestSetFactory
Set tsTreeMgr = TDC.TestSetTreeManager
Set tSetFolder = tsTreeMgr.NodeByPath("Root\SVI\NFUNC\")
Set tSetsList = tSetFolder.FindTestInstances("", False, "")
For x = 1 To tSetsList.Count
Set theTSTest = tSetsList.Item(x)

What i need to do now is list all the linked defects (and their status) for each test.

No idea how to do this, can anyone help???