Dim docs As IManage.IManDocumentsdocs = CType(folder.Contents, IManage.IManDocuments)docs.AddDocumentReference(doc)
session.WorkArea.Worklist.RemoveByObject(doc)