-                        Using Trans As AcadDbServices.Transaction = Db.TransactionManager.StartTransaction 
-                             EntityToDrag.Location = CurrentCursorPosition 
-                             Dim Bt As AcadDbServices.BlockTable = Trans.GetObject(Db.BlockTableId, Autodesk.AutoCAD.DatabaseServices.OpenMode.ForRead, False) 
-                             Dim Btr As AcadDbServices.BlockTableRecord = Trans.GetObject(Bt(AcadDbServices.BlockTableRecord.ModelSpace), Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite, False) 
-                             Btr.AppendEntity(EntityToDrag) 
-                             Trans.AddNewlyCreatedDBObject(EntityToDrag, True) 
-                             Trans.Commit() 
-                         End Using 
-   
-