Need some help pulling the property out of objects.

I would like to iterate all entity in Block and display the type of the object. For example: LINE, BLOCK REFERENCE, LWPOLYLINE, TEXT . . . .

I currently have:

For Each Ent as ObjectId In CurrBTR
    Debug.pring (Ent  . . . .)
Next