طريقة حذف السطر العربي من عنصر RichText

RichText.SetSelection("RichText1", 1, -1);

c = RichText.GetSelectionFormat("RichText1", true);

undo ={FaceName=c.FaceName,Height=c.Height};

RichText.SetSelection("RichText1", 1, -1);

belkiss={FaceName="Wingdings 3", Height=2};

RichText.SetSelectionFormat("RichText1", belkiss, true)

strText = RichText.GetLine("RichText1", 1); 

------------------------------------------------------------

RichText.SetSelectionFormat("RichText1", undo, true) 

find = RichText.FindText("RichText1", strText, 1, -1, true, true) 

RichText.SetSelection("RichText1", find.Start, find.End)

RichText.Delete("RichText1")

RichText.Delete("RichText1")