Private Sub CopyPasteTestSet(TestSetID, CopyMode, destFolderID, PasteMode, OrderID)

' Copy test set

    Dim iscp As ISupportCopyPaste
    Dim clipboard As String

    Dim testSetF As TestSetFactory
    Set testSetF = tdc.TestSetFactory
    
    Set iscp = testSetF
    clipboard = iscp.CopyToClipBoard(TestSetID, CopyMode, "")
    iscp.PasteFromClipBoard clipboard, destFolderID, PasteMode, OrderID
       
    Set iscp = Nothing
    Set testSetF = Nothing
End Sub