استخلاص أسطر عربية من RichText بواسطة ListBox

function EM_GETLINE(HWND, nLine)

 Buffer = Memory.Allocate(1024);

Memory.PutLong(Buffer, 1024);

DLL.CallFunction("User32.dll", "SendMessageA", HWND..", 196, "..nLine..", "..Buffer, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)

sLine = Memory.GetString(Buffer, -1, "Ascii");

Memory.Free(Buffer);

return sLine

end 

f = String.ToNumber(ListBox.GetSelected("ListBox1")[1]);

 ----

 HWND = RichText.GetProperties("RichText1").WindowHandle;

---

f2 =""

for i =String.ToNumber( ListBox.GetItemData("ListBox1", f-1)),String.ToNumber(ListBox.GetItemData("ListBox1", f))-1 do

 sLineText = EM_GETLINE(HWND, i-1)

 f2=f2..sLineText.."\r\n"

end

 result = Dialog.Message("Notice", f2);