求一段vb二次开发cad的代码

如题，我主要是在遍历空间实体，然后获得实体属性这儿不知道怎么写，哪位大侠能提供一段这样的代码，如果能把各种实体都讲一下，那更好。
首先谢谢你们的回答，但是我要的是纯vb代码， laiwenyi2006的是vba代码，我给个具体的实体嘛，就块。我使用的工具是VB6.0，cad2006

Option Explicit

Sub test()
Dim ent As AcadEntity
For Each ent In ThisDrawing.ModelSpace
MsgBox ent.EntityName '采用循环，输出各个实体的实体名
Next
MsgBox "共有" & ThisDrawing.ModelSpace.Count & "个实体！“"
End Sub

具体需要什么属性，得你自己把握了。

((-1 . <图元名: 7aa0bf88>) (0 . "LWPOLYLINE") (330 . <图元名: 7aa0bcf8>) (5 .
"F1") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbPolyline") (90 . 5) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 558.344
515.854) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1019.94 765.048) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 1253.07 499.552) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
817.118 194.464) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 434.786 268.99) (40 .
0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

LWPOLYLINE 的DXF组码值为：
100
子类标记 (AcDbPolyline)

90
顶点数