public class CSSyncronizedDocument : CSDocumentInformation, 
	IDisposable

Public Class CSSyncronizedDocument
	Inherits CSDocumentInformation
	Implements IDisposable

CSSyncronizedDocument synDoc = null;
try
{
   synDoc = new CSSyncronizedDocument(CS_ConnectionId, CS_UserSessionId, CS_InsertedCategoryId, "The child document");
   synDoc.Content = "<h1>This is a new document</h1>";
   synDoc.ParentDocumentID = CS_InsertedDocumentId;
   //Save the new document
   synDoc.Save();
   Response.Write("<h1>The child document has successfully been created. New id is: " + newDoc.DocumentID.ToString() + "</h1>");
}
catch (Exception ex)
{
   Response.Write("<h1>Could not create a child document: " + ex.Message + "</h1>");
}
finally
{
   //Make sure that the document is released!
   if(synDoc != null) 
      synDoc.Close();
}

Dim synDoc As CSSyncronizedDocument = Nothing
Try
    synDoc = New CSSyncronizedDocument(CS_ConnectionId, CS_UserSessionId, CS_InsertedCategoryId, "The child document")
    synDoc.Content = "<h1>This is a new document</h1>"
    synDoc.ParentDocumentID = CS_InsertedDocumentId
    'Save the new document
    synDoc.Save();
Catch ex As Exception
   Response.Write("<h1>Could not create a child document: " & ex.Message & "</h1>")
Finally
   'Make sure that the document is released!
   If Not synDoc Is Nothing Then
      synDoc.Close()
   End If
End Try

try
{
  //Create a new instance of the CSDocumentInformation object to get the current documents properties.
  //If reading is the only operation to make, CSDocumentInformation is more efficient since no check in/out operations will be performed.
  CSDocumentInformation DocInfo = new CSDocumentInformation(CS_ConnectionId, CS_UserSessionId, CS_InsertedDocumentId, CSDocumentInformation.ContentToLoad.Draft);
  //Create a copy of the document, name it the same as the document but prefix it with "Copy of ".
  using (CSSyncronizedDocument newDoc = new CSSyncronizedDocument(CS_ConnectionId, CS_UserSessionId, CS_InsertedCategoryId, "Copy of " + DocInfo.DocumentName))
  {
      newDoc.Content = DocInfo.Content;
      newDoc.HeaderData = DocInfo.HeaderData;
      newDoc.Save();
      newDoc.Approve();
      Response.Write("<h1>The document has successfully been copied. New id is: " + newDoc.DocumentID.ToString() + "</h1>");
  }
}
catch (Exception ex)
{
  Response.Write("<h1>Could not copy the document: " + ex.Message + "</h1>");
}

Try
  'Create a new instance of the CSDocumentInformation object to get the current documents properties.
  'If reading is the only operation to make, CSDocumentInformation is more efficient since no check in/out operations will be performed.
  Dim DocInfo As New CSDocumentInformation(CS_ConnectionId, CS_UserSessionId, CS_InsertedDocumentId, CSDocumentInformation.ContentToLoad.Draft)
  'Create a copy of the document, name it the same as the document but prefix it with "Copy of ".
  Using newDoc As CSSyncronizedDocument = New CSSyncronizedDocument(CS_ConnectionId, CS_UserSessionId, CS_InsertedCategoryId, "Copy of " & DocInfo.DocumentName)
      With newDoc
         .Content = DocInfo.Content
         .HeaderData = DocInfo.HeaderData
         .Save()
         .Approve()
      End With
      Response.Write("<h1>The document has successfully been copied. New id is: " & newDoc.DocumentID.ToString() & "</h1>")
  End Using
Catch ex As Exception
  Response.Write("<h1>Could not copy the document: " & ex.Message & "</h1>")
End Try