Private Sub GetListViewText(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim subitem As Integer

        listviewHandle = Int32.Parse(txtHandle.Text)

        Dim itemCount As Integer = SendMessage(listviewHandle, LVM_GETITEMCOUNT, IntPtr.Zero, IntPtr.Zero)
        ' Aquire the amount of rows in the listview
        Dim headerhandle As IntPtr = SendMessage(listviewHandle, LVM_GETHEADER, IntPtr.Zero, IntPtr.Zero)
        ' Aquire the handle of the listviews header
        Dim coloumcount As Integer = SendMessage(headerhandle, HDM_GETITEMCOUNT, IntPtr.Zero, IntPtr.Zero)
        ' Aquire the amount of coloumns in the listview header

        Dim id As Integer = -1
        Dim p As Process

        For Each p In Process.GetProcessesByName("testapplication")
            id = p.Id
        Next

        Dim hProcess As IntPtr = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE Or &H8, False, id)
        For index As Integer = 0 To itemCount - 1
            ' For each of the rows do the following :
            For subitem = 0 To coloumcount
                ' For each of the columns do the following :

                Dim lvi As New LV_ITEM
                lvi.cchTextMax = 260
                lvi.iSubItem = subitem
                lvi.mask = 1
                lvi.iItem = index
                Dim pString As IntPtr = VirtualAllocEx(hProcess, IntPtr.Zero, 260, MEM_COMMIT, PAGE_READWRITE)
                lvi.pszText = pString
                Dim pLvItem As IntPtr = VirtualAllocEx(hProcess, IntPtr.Zero, Marshal.SizeOf(lvi), MEM_COMMIT, PAGE_READWRITE)
                Dim success As Boolean = WriteProcessMemory(hProcess, pLvItem, lvi, Marshal.SizeOf(lvi), 0)
                Dim result As Integer = SendMessage(listviewHandle, LVM_GETITEMTEXT, index, pLvItem)
                Dim s As New StringBuilder(260)
                success = ReadProcessMemory(hProcess, pString, s, 260, 0)
                success = ReadProcessMemory(hProcess, pLvItem, lvi, Marshal.SizeOf(lvi), 0)
                success = VirtualFreeEx(hProcess, pString, 0, MEM_RELEASE)
                success = VirtualFreeEx(hProcess, pLvItem, 0, MEM_RELEASE)
                s.AppendLine()
                info.AppendText(s.ToString)

            Next

        Next

        CloseHandle(hProcess)

    End Sub

 <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
    Public Structure LV_ITEM
        Public mask As UInteger
        Public iItem As Integer
        Public iSubItem As Integer
        Public state As UInteger
        Public stateMask As UInteger
        Public pszText As IntPtr
        Public cchTextMax As Integer
        Public iImage As Integer
        Public lParam As IntPtr
        Public iIndent As Integer
        Public iGroupId As Integer
        Public cColumns As Integer
        Public puColumns As IntPtr
        Public piColFmt As IntPtr
        Public iGroup As Integer
    End Structure