Private Sub DeleteTSTest(TSTestID As Long)

' Delete test instance
    
    Dim TSTestF As TSTestFactory
    Set TSTestF = tdc.TSTestFactory
    TSTestF.RemoveItem (TSTestID)

End Sub