'重载窗口消息处理，接收线程同步消息
    Protected Overrides Sub WndProc(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)

                console.writeline (mystr.lpdata)