 data from the memory pointer:
         CopyMemory ByVal StrPtr(sString), ByVal lPtr + LenB(tLBS),
          tLBS.lStringSize
      End If
      ' Now set the item data, item extra data and string into an
      ' instance of the cListBoxItem class to make it easier for
      ' the client to interpret it:
      Dim cData As New cListBoxItem
      With cData
         .ItemData = tLBS.lItemData
         .ItemExtraData = tLBS.lItemExtraData
         .ItemString = sString
      End With
      Set ItemData = cDat