dim blockTableRecord as BlockTableRecord = transaction.GetObject(HostApplicationServices.WorkingDatabase.CurrentSpaceId, OpenMode.ForWrite)
dim blockTableRecord as BlockTableRecord = transaction.GetObject(HostApplicationServices.WorkingDatabase.CurrentSpaceId, OpenMode.ForWrite)