find block with vb.net

[shirazbj]

What is an Anonymous block? Thx. How do I delete this thread?

                    Using tr
                        Dim bt As BlockTable = DirectCast(tr.GetObject(DB.BlockTableId, OpenMode.ForRead), BlockTable)
                        For Each btrid As ObjectId In bt
                            Dim btr As BlockTableRecord = DirectCast(tr.GetObject(btrid, OpenMode.ForRead), BlockTableRecord)
                            If Not btr.IsAnonymous And Not btr.IsLayout Then