//Handle Messages from Partner-App
Procedure ManagePartnerEvents(pEvent is int, pWParam is int, pLParam is system int)
//If the Message was sent from Partner-App
IF pWParam = gnCommunicationPartnerHandle THEN
//Examine Event
SWITCH pEvent

//WM_Close (Partner wants to Terminate myself)
CASE WM_CLOSE
Close() //close myself
RESULT 1 //Message handled

//WM_USER + 1300 (Partner wants a Live-Signal)
CASE WM_ISALIVE
//TargetHandle provided in pLParam
//Signal Back, still alive, returning receiving Handle in LParam
PostMessage(pLParam,WM_USER+1,0,Handle(STC_MessageHandlerControl))
RESULT 1 //Message handled

//WM_SETTEXT (Partner sends a string)
CASE WM_SETTEXT
//String in this event is UniCode
sText is string = StringRetrieve(pLParam,srUNICODEAddress)

//Process sText ...

RESULT 1 //Message handled
//WM_COPYDATA (Partner sends structured Data)
CASE WM_COPYDATA
//Variable of COPYDATASTRUCT-Type
cds is COPYDATASTRUCT
//Copy content from Pointer pLParam
Transfer(&cds,pLParam,Dimension(cds))
//Switch on the Structure-Type
SWITCH cds.dwData
//in Case of Structure A
CASE nDataSructureAType
//Variable of Structure A
stStructA is ST_DataStructureA
//Copy content from Pointer cds.lpData
Transfer(&stStructA,cds.lpData,cds.cbData)

//Process stStructA

RESULT 1 //Message handled

//in Case of Structure B
CASE nDataSructureBType
//Variable of Structure B
stStructB is ST_DataStructureB
//Copy content from Pointer cds.lpData
Transfer(&stStructB,cds.lpData,cds.cbData)

//Process stStructB

RESULT 1 //Message handled

//Maybe more Cases

OTHER CASE

END
OTHER CASE

END
END