Cloning Styled Text

I have an application the uses styled text and there is a need to create a “clone” of a styled text object at times…
That is an exact duplicate but with a life of its own.

I was using this code

CLONE_STYLED_TEXT(master as styledtext, byref clone as styledtext)
  Dim i As Integer
  Dim sr As StyleRun
  If master=Nil Then Exit Sub
  
  For i=0 To master.StyleRunCount-1
    sr=New StyleRun
    sr.Bold=master.StyleRun(i).Bold
    sr.Font=master.StyleRun(i).Font
    sr.Italic=master.StyleRun(i).Italic
    sr.Size=master.StyleRun(i).size
    sr.text=master.StyleRun(i).text
    sr.TextColor=master.StyleRun(i).TextColor
    sr.Underline=master.stylerun(i).Underline
    clone.InsertStyleRun sr,i
  Next i

But I just realized that this does NOT take PARAGRAPH (ie alignment) information into consideration, and while there is an InsertStyleRun, there is no InsertParagraph or any way I can see to duplicate that information from one StyledText object to another???

Sorry if this is duplicated… it kept marking it PRIVATE