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