idth() As Long
Attribute Width.VB_Description = "Gets the Width of the item within the bar."
Dim ctl As vbalListBar
Dim tR As RECT
   If pbVerify(ctl) Then
      ctl.fItemGetRect m_lBarPosition, m_lItemPosition, tR
      Width = (tR.Right - tR.Left)
   End If
End Property
Public Property Get Height() As Long
Attribute Height.VB_Description = "Gets the Height of the item."
Dim ctl As vbalListBar
Dim tR As RECT
   If pbVerify(ctl) Then
      ctl.fItemGetRect m_lBarPosition, m_lItemPosition, tR
      Height = 