g As String

   ' Get the pointer to the extra data (if it exists!)
   lPtr = m_lstThis.ItemData(lItemIndex)
   If Not (lPtr = 0) Then
      ' If we get one, then copy across the itemdata, itemextradata
      ' and string size from the memory:
      CopyMemory tLBS, ByVal lPtr, LenB(tLBS)
      ' If the string size &gt;0
      If tLBS.lStringSize &gt; 0 Then
         ' Allocate space in the string at the appropriate size:
         sString = String$(tLBS.lStringSize \ 2, 0)
         ' Copy the Unicode string