= 0) Then
      tLBS.lItemData = cData.ItemData
      tLBS.lItemExtraData = cData.ItemExtraData
      ' Store the data, extradata and string size:
      CopyMemory ByVal lPtr, tLBS, Len(tLBS)
      ' Store the Unicode string:
      CopyMemory ByVal lPtr + LenB(tLBS), ByVal StrPtr(sString),
       tLBS.lStringSize
      m_lstThis.ItemData(lItemIndex) = lPtr
   End If
   
End Property
Public Property Get ItemData(ByVal lItemIndex As Long) As cListBoxItem
Dim tLBS As tListBoxStorage
Dim lPtr As Long
Dim sStrin