Private m_sTag As String
Private m_tLastR As RECT
Private m_hWndLast As Long

Public Property Get Tag() As String
   Tag = m_sTag
End Property
Public Property Let Tag(ByVal sTag As String)
   m_sTag = sTag
End Property

Public Property Get Segments() As Boolean
   Segments = m_bSegments
End Property
Public Property Let Segments(ByVal bState As Boolean)
   m_bSegments = bState
   Draw
End Property

Public Property Get XpStyle() As Boolean
   XpStyle = m_bXpStyle
End Property
Public Property Let XpStyle(ByVal