Dim ControlHandle As IntPtr = 527490 
        Dim RetVal As String = ""
        Dim RetValLength As Integer
        Const LB_GETTEXT = &H189
        Const LB_GETTEXTLEN = &H18A
        Const LVM_GETITEMTEXT As UInteger = &H102D
        RetValLength = SendMessage(ControlHandle, LB_GETTEXTLEN, 1, 0)

        Dim h As IntPtr = Marshal.AllocHGlobal(100)
        SendMessage(ControlHandle, LVM_GETITEMTEXT, 1, h)
        RetVal = Marshal.PtrToStringAnsi(h)
        RichTextBox1.Text += "len=" + CStr(RetValLength) + "$realLen=" + CStr(RetVal.Length)
        RichTextBox1.Text += vbNewLine
        RichTextBox1.Text += RetVal
        RichTextBox1.Text += vbNewLine