Public Sub QuickBind()
        Dim dwg As Document
        Dim DestinationFile As String = "c:\test\myFile.dwg"
        dwg = Application.DocumentManager.Open(DestinationFile, False)
        Dim ThisDrawing As Document = Application.DocumentManager.MdiActiveDocument
        Using LockDB As DocumentLock = ThisDrawing.LockDocument()
            Dim db As Database = dwg.Database
            Dim transMan As DatabaseServices.TransactionManager = db.TransactionManager
            Using trans As Transaction = transMan.StartTransaction
                Dim iDColl As New ObjectIdCollection
                ' get list of Xref's 
                getXref(db, iDColl)
                If iDColl.Count > 0 Then
                    db.BindXrefs(iDColl, False)
                    trans.Commit()
                    db.SaveAs(DestinationFile, DwgVersion.Current)
                Else
                    trans.Commit()
                End If
            End Using
        End Using
        ThisDrawing.CloseAndDiscard()
    End Sub


    Public Sub getXref(ByVal db As Database, ByRef idColl As ObjectIdCollection)

        Dim transMan As DatabaseServices.TransactionManager = db.TransactionManager
        Using trans As Transaction = transMan.StartTransaction
            Dim xrgraph As XrefGraph = db.GetHostDwgXrefGraph(False)
            ' look at all Nodes in the XrefGraph.  Skip 0 node since it is the drawing itself.
            For i As Integer = 1 To (xrgraph.NumNodes - 1)
                Dim xrNode As XrefGraphNode = xrgraph.GetXrefNode(i)
                Dim btr As BlockTableRecord = DirectCast(trans.GetObject(xrNode.BlockTableRecordId, OpenMode.ForWrite), BlockTableRecord)
                ' Add Xref's to Collection
                idColl.Add(btr.ObjectId)
            Next
        End Using
    End Sub