在接收信息的窗體類中添加下列信息：
Private Const WM_COPYDATA As Integer = 74
  Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
        Select Case (m.Msg)
            Case WM_COPYDATA
                Dim mystr As COPYDATASTRUCT = New COPYDATASTRUCT
                Dim mytype As Type = mystr.GetType
                mystr = CType(m.GetLParam(mytype), COPYDATASTRUCT)
                strInfo = mystr.lpData
                Me.textBox1.Text = strInfo
            Case Else
                MyBase.DefWndProc(m)
        End Select
    End Sub


    <StructLayout(LayoutKind.Sequential)> _
    Public Structure COPYDATASTRUCT

        Public dwData As IntPtr

        Public cbData As Integer

        <MarshalAs(UnmanagedType.LPStr)> _
        Public lpData As String
    End Structure

其中：strInfo 為返回的原碼 信息值。