#include once "window9.bi"

Function GetClipBoardText() As String Export
  OpenClipboard(0)
  Var Clip = GetClipboardData(CF_TEXT)
  Var size_ = GlobalSize(Clip)
  Dim Buf As String = Space(size_)
  Var Mem = GlobalLock(Clip)
  CopyMemory(Strptr(buf), Mem, size_)
  Function=buf
  GlobalUnlock(Mem)
  CloseClipboard()
End Function

Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,800,400)
EditorGadget(1,10,10,300,300, "")
EditorGadget(2,400,10,300,300, "")
PasteEditor (2,GetClipBoardText())
SendMessage(GadgetID(1),WM_PASTE,0,0)
Do
event=WaitEvent()
If event=EventClose Then End
Loop

#Define UNICODE
#Include "windows.bi"

Dim Shared As HWND mHwnd
Dim msg As MSG
Dim As WNDCLASSEX wc
Dim As WString*20 NameClass="MyClass"
Dim As HINSTANCE Hinst=GetModuleHandle(0)
LoadLibrary "RICHED20.DLL"

Function EditorGadget Alias "EditorGadget" (ByVal gadget As Integer, ByVal x As Integer,ByVal y As Integer,ByVal Width_ As Integer,ByVal height_ As Integer,ByVal stri As WString Ptr = 0,ByVal par As Integer=0) As HWND Export
  Var hhh= CreateWindowEx( &h00000200, "RICHEDIT20W", stri,&h503110C4 Or par, x, y, Width_, Height_, mHwnd, Cast(HMENU,gadget), 0, 0)
  SendMessage( hhh, EM_LIMITTEXT,-1,0)
  Return hhh
End Function

Function wndproc(hwnd As HWND, msg As Uinteger,_
    wparam As WPARAM, lparam As LPARAM) As Integer
    Select Case msg
  Case WM_CREATE

  Case WM_DESTROY
   PostQuitMessage(0)
    End Select
    Return DefWindowProc(hwnd,msg,wparam,lparam)
End Function

With wc
.cbSize=SizeOf(WNDCLASSEX)
.style=CS_HREDRAW Or CS_VREDRAW
.lpfnWndProc=@WndProc
.hInstance=Hinst
.hIcon=LoadIcon(0,IDI_QUESTION)
.hCursor=LoadCursor(0,IDC_ARROW)
.hbrBackground=Cast(HBRUSH,COLOR_WINDOWFRAME)
.lpszClassName=StrPtr(NameClass)
.hIconSm=.hIcon
End With

If RegisterClassEx(@wc)=0 Then
Print "Register error, press any key"
Sleep
End
Endif

Function GetClipBoardText() As WString Ptr Export
  OpenClipboard(0)
  Var Clip = GetClipboardData(CF_UNICODETEXT)
  Var size_ = GlobalSize(Clip)
  Dim Buf As WString ptr = Allocate(size_)
  Var Mem = GlobalLock(Clip)
  CopyMemory(buf, Mem, size_)
  Function=buf
  GlobalUnlock(Mem)
  CloseClipboard()
End Function

mHwnd = CreateWindowEx(0,NameClass,"",_
WS_VISIBLE Or WS_OVERLAPPEDWINDOW,100,100,800,500,0,0,Hinst,0)

Var ed1 = EditorGadget(1,10,10,300,300, "")
Var ed2 = EditorGadget(2,400,10,300,300, "")

SendMessage(ed1,EM_REPLACESEL,1,Cast(LPARAM,GetClipBoardText()))
SendMessage(ed2,WM_PASTE,0,0)

While GetMessage(@msg,0,0,0)
TranslateMessage(@msg)
DispatchMessage(@msg)
Wend