MarshalAs COPYDATASTRUCT and SendMessage

Dear Experts,

I am having problems with Window Messages. I want to send the handle of a VB.NET winform to a VB6 application. The code I have used seems to work ok, since the message arrives at the VB6 app. However, I have a problem that sometimes I get an error stating that it is not possilbe to read or write to the memory and that memory might be corrupt.
I have no idea what is causing this problem as I think I release the memory at the end of my procedure.

I have provided the code in hope that someone else might have some insights in this problem.

Imports System.Runtime.InteropServices
Imports System.Security
    Public Class WindowMessages

#Region "Constants"
        Const WM_COPYDATA = &H4A
        Const LMEM_FIXED As Integer = &H0
        Const LMEM_ZEROINIT As Integer = &H40
        Const LPTR As Integer = (LMEM_FIXED Or LMEM_ZEROINIT)
#End Region

#Region "Dll import"
        <DllImport("user32.dll", EntryPoint:="SendMessageA", CallingConvention:=CallingConvention.StdCall, CharSet:=CharSet.Ansi)> _
        Private Shared Function SendMessage(ByVal hwnd As UInteger, ByVal Msg_Const As UInteger, ByVal wParam As UInteger, ByVal lParam As UInteger) As UInteger
        End Function

#End Region

        <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=255)>
        Private Shared text As String

        <StructLayout(LayoutKind.Sequential)>
        Public Structure COPYDATASTRUCT
            Public dwData As IntPtr   ' Use this to identify your message
            Public cbData As Integer   ' Number of bytes to be transferred
            Public lpData As IntPtr   ' Address of data
        End Structure

        Public Shared Sub SendDataMsg(ByVal statusText As String, ByVal lngToHwnd As IntPtr, ByVal lngFromHwnd As IntPtr)
            text = String.Copy(statusText)

            Dim oCDS As New COPYDATASTRUCT()

            oCDS.cbData = (text.Length + 1) '* 2
            oCDS.lpData = Marshal.StringToHGlobalUni(text)
            oCDS.dwData = 3
            Dim lParam As IntPtr = Marshal.AllocHGlobal(oCDS.cbData)
            Marshal.StructureToPtr(oCDS, lParam, False)

            Call SendMessage(lngToHwnd, WM_COPYDATA, lngFromHwnd, lParam)

            Marshal.FreeHGlobal(oCDS.lpData)
            Marshal.FreeHGlobal(lParam)

        End Sub

    End Class

Select allOpen in new window