vbAccelerator - Contents of code file: cListBoxItem.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "cListBoxItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private m_lItemData As Long
Private m_lItemExtraData As Long
Private m_sString As String

Public Property Get ItemData() As Long
   ItemData = m_lItemData
End Property
Public Property Let ItemData(ByVal lItemData As Long)
   m_lItemData = lItemData
End Property
Public Property Get ItemExtraData() As Long
   ItemExtraData = m_lItemExtraData
End Property
Public Property Let ItemExtraData(ByVal lItemExtraData As Long)
   m_lItemExtraData = lItemExtraData
End Property
Public Property Get ItemString() As String
   ItemString = m_sString
End Property
Public Property Let ItemString(ByVal sItemString As String)
   m_sString = sItemString
End Property