eft position 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
      Left = tR.Left
   End If
End Property
Public Property Get Top() As Long
Attribute Top.VB_Description = "Gets the Top position 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
      Top = tR.Top
   End If
End Property
Public Property Get W