ByVal hWnd As Long, ByVal lBarID As Long, ByVal lItemID
 As Long)
   m_hWnd = hWnd
   m_lBarID = lBarID
   m_lItemID = lItemID
End Function

Private Function pbVerify(ByRef ctlThis As vbalListBar) As Boolean
Dim lPtr As Long
   If IsWindow(m_hWnd) Then
      lPtr = GetProp(m_hWnd, gcObjectProp)
      If Not (lPtr = 0) Then
         Set ctlThis = ObjectFromPtr(lPtr)
         m_lBarPosition = ctlThis.fIsBar(m_lBarID)
         If Not (m_lBarPosition = 0) Then
            m_lItemPosition = ctlThis.fIsItem(m_lBa