请大师帮助，如何高亮并显示多义线的各节点

wz0406

我查了一下NET的帮助文件，有Highlight、UnHighlight、PushHighlightC:\Users\忠\Desktop\捕获.PNG,前两个会用，要实现上图效果不知怎样做

wz0406

Public Sub HighlightEntity(ByVal ObjID As ObjectId, ByVal Hight As Boolean)
        Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database
        Dim trans As Transaction = db.TransactionManager.StartTransaction()
        Using trans
            Dim ent As Entity = CType(trans.GetObject(ObjID, OpenMode.ForWrite, False), Entity)
            If Hight = True Then
                ent.Highlight()

            Else
                ent.Unhighlight()
            End If
            trans.Commit()
        End Using
    End Sub