Private Function CopyPasteBug(sourceBug As Bug, _
    Optional PasteMode = COPY_PASTE_NO_LINKED_TEST_MODE, _
    Optional OrderID = -1, _
    Optional TargetID = "", _
    Optional CopyMode = 0, _
    Optional Path = "" _
    ) As Boolean
' Copy and paste a defect

    Dim iscp As ISupportCopyPaste
    Dim clipboard As String
    
    On Error GoTo FUNC_ERR
    CopyPasteBug = SUCCESS
    
    ' Type cast.
    Set iscp = tdc.BugFactory
    clipboard = iscp.CopyToClipBoard(sourceBug.ID, CopyMode, Path)
    iscp.PasteFromClipBoard clipboard, TargetID, PasteMode, OrderID
    
Exit Function
FUNC_ERR:
    CopyPasteBug = FAILURE
End Function