[求助]怎样读AcadEntity类型的值？

weekendor

    Dim entry As AcadEntity
    Dim x As Double
    For Each entry In ThisDrawing.ModelSpace
      '...
      If entry.ObjectName = "AcDbLine" Then
            Exit For
      End If
      '...
    Next
    '...
    x = entry.StartPoint(0)

程序目的：把entry定义成AcadEntity类型开来搜索图中所有实体，如果得到为直线类型时，想取得它的X坐标值。
出现问题：执行entry.StartPoint(0)这句时，出现错误:“property let过程未定义，property get过程未返回对象”

想请教：能有什么办法可以不把entry赋给另一直线类型的变量、而直接读出它里面StartPoint(0)的值（我在监视窗口中看到它已变了IAcadLine类型，且具有StartPoint值）？？

雪山飞狐_lzh

pnt=entry.StartPoint

x=pnt(0)

weekendor

明白！　十分感谢！　：）