(tR.Bottom - tR.Top)
   End If
End Property
Public Property Get Selected() As Boolean
Attribute Selected.VB_Description = "Gets whether the item was the last
 selected item in the bar or not."
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      Selected = (ctl.fBarSelectedItemID(m_lBarPosition) = m_lItemID)
   End If
End Property
Public Sub SelectItem()
Attribute SelectItem.VB_Description = "Selects this item within the bar."
Dim ctl As vbalListBar
   If pbVerify(ctl) Then
      ctl.fBarItemSelect m_lBarP