Function long lstrcpy(long Destination, REF string Source) library "kernel32.dll"

Function long lstrcpy(long Destination, REF string Source) library "kernel32.dll"

// button clicked event
string lsTestString

lsTestString = fill ("1234567890",  32000 )
// В longParm передаем указатель на строку, а в WordParm - размер строки 
parent.triggerevent ("test_string", len(lsTestString) +  1 , lsTestString)

//Declaration
Function long GetStringByPtr(Ref string Destination, long Source, long Size) library "kernel32.dll"  Alias for "RtlMoveMemory"

// window test_string Event
string ls_Argument
long size
size = message.WordParm 
ls_Argument = space(size)
GetStringByPtr(ls_Argument, message.LongParm , size ) 
//ls_Argument = string(message.LongParm , "address") // Здесь ограничение  511  символов
messageBox (string(len(ls_Argument)), ls_Argument)