recently moved to x3

Hi all. I wrote a small script to place some text on a page. I created this in v12 of corels vba. now Ive moved upto 13 (and regret it) When ever I place a cusor to type it starts out at 270 deg. When I run my lil script it does the same. Have the methods etc changed so much between 12 & 13????
btw the macro worked fine in 12.

Sub ProdDrawing()
    ActiveDocument.BeginCommandGroup "Production Drawing"
    ActiveDocument.Unit = cdrInch
    Set My_Item = ActiveLayer.CreateArtisticText(10, 1.75, "Production Drawing " & Date & " (101)")
    Set txt = ActiveShape.Text.Story.Paragraphs(1)
    With txt
        .ChangeCase cdrTextUpperCase
        .Font = "Arial Black"
        .Size = 12
        .Bold = True
        .Underline = cdrSingleThickFontLine
        .Fill.UniformColor.RGBAssign 255, 0, 0
        End With
     ActiveDocument.EndCommandGroup
End Sub

As far as i can tell there is nothing in there that dictates rotation.
Im stumped.
Thanx all

This works for me...

Sub ProdDrawing()
    Dim My_Item As Shape
    Dim txt As Text
    ActiveDocument.BeginCommandGroup "Production Drawing"
    ActiveDocument.Unit = cdrInch
    Set My_Item = ActiveLayer.CreateArtisticText(10, 1.75, "Production Drawing " & Date & " (101)")
    Set txt = ActiveShape.Text
    With txt.Story.Paragraphs(1)
        .ChangeCase cdrTextUpperCase
        .Font = "Arial Black"
        .Size = 12
        .Bold = True
        .Underline = cdrSingleThickFontLine
        .Fill.UniformColor.RGBAssign 255, 0, 0
        End With
     ActiveDocument.EndCommandGroup
End Sub

You had set txt to the paragraph level, and then said with.... that's the only thing I had to change (and added in Dim statements)

No rotation at all.
~G~