'重载窗口消息处理，接收线程同步消息
Protected Overrides Sub WndProc(ByRef m As XXXXXXXXXXXXXXXXXrms.Message)
Select Case (XXXXg)
Case WM_COPYDATA
Dim mystr As COPYDATASTRUCT = New COPYDATASTRUCT
Dim mytype As Type = XXXXXXXXtType
mystr = CType(XXXXtLParam(mytype), COPYDATASTRUCT)
console.writeline (mystr.lpdata)
