A Weird Behavior of AppendRTItem

The following code failed to faithfully copy a NotesRichTextItem to another:

Dim itBody as NotesRichTextItem

Dim itBody2 as New NotesRichTextItem(doc, “Body2”)

Call itBody.AppendRTItem(itBody2)

Though the RichText field in a NotesDocument started with a left alignment, the copied RichText field started with a right alignment.

Why? does anyone have any ideas?