[VBA] PowerInroads SS10 How can I detect if an element is visible?

Hi,

My goal is to work with only the visible lines and line strings within a cell.  I figured out how to access the lines and linestrings, but I don't know how to detect if the element is visible in the current view or not.  Is there a way to test for this?  I guess another way ask is if the level is on or off in the current view.  Here is my little test program.

Private Sub test(XCell As CellElement)
   Dim enumer As ElementEnumerator
   Set enumer = XCell.GetSubElements
   Dim q As Long
   q = 0
   Do While enumer.MoveNext
      If (enumer.Current.Type = msdElementTypeLine Or enumer.Current.Type = msdElementTypeLineString) Then
'maybe I'd like to test here to see if it is visible.
          q = q + 1

      End If
   Loop
   MsgBox FormatNumber(q, 0)
End Sub

Thanks,

Minion