' A child Inline element for the new Italic element.
Dim runx1 As New Run("Text to make italic.")

' After this line executes, the new element "italx"
' contains the specified Inline element, "runx".
Dim italx1 As New Italic(runx1)

' A child Inline element for the new Italic element.
Dim runx2 As New Run("Text to make italic.")

' An empty paragraph will serve as the container for the new Italic element.
Dim parx2 As New Paragraph()

' After this line executes, the new element "italx"
' contains the specified Inline element, "runx".  Also, "italx" is
' inserted at the point indicated by the insertionPosition parameter, 
' which in this case indicates the content start position in the Paragraph 
' element "parx".
Dim italx2 As New Italic(runx2, parx2.ContentStart)

' Create a paragraph and three text runs to serve as example content.  
Dim parx As New Paragraph()
Dim run1 As New Run("Text run 1.")
Dim run2 As New Run("Text run 2, make italic.")
Dim run3 As New Run("Text run 3.")

' Add the three text runs to the paragraph, separated by linebreaks.
parx.Inlines.Add(run1)
parx.Inlines.Add(New LineBreak())
parx.Inlines.Add(run2)
parx.Inlines.Add(New LineBreak())
parx.Inlines.Add(run3)

' After this line executes, the selection of content
' indicated by the "start" and "end" parameters will be
' enclosed by the new Italic.  In this case, the new Italic
' will enclose the second text run, "run2".
Dim italx3 As New Italic(run2.ContentStart, run2.ContentEnd)