Change ZOrder of grouped shapes (VBA)

Hi all,

I try to use the following code to group two shapes (text boxes):

Sub T2()

Dim T1  As Shape

Dim T2  As Shape

Set T1 = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 250, 50)

With T1

.Name = "BoxOne"

With .TextFrame.TextRange

.Font.Color = wdColorBlue

.Text = "This is the first line of the first text box." & vbCr & "This is the second line of the first text box."

End With

End With

Set T2 = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 250, 50)

With T2

.Name = "BoxTwo"

With .TextFrame.TextRange

.Font.Color = wdColorRed

.Text = " This is the first line of the second text box." & vbCr & " This is the second line of the second text box."

End With

End With

T1.ZOrder msoSendBehindText

T2.ZOrder msoBringInFrontOfText

'  group the text boxes

T1.Select

T2.Select False

Selection.ShapeRange.Group

End Sub

Basically the code is working. But I have no chance to change the ZOrder of the two shapes in a way that  the user can select the text box "BoxTwo" with the mouse. Independent of all ZOrder statements that I tried always "BoxOne" is the one that gets selected and is selectable. Of course I can change the sequence of the text boxes creation in this sample, but I have no influence of the creating sequence in reality.

I'd be very thankful for any idea!

BTW, I use the strange way of grouping the shapes together with the Select statements because that's the onliest way I could find how programmatically grouping items really works. The samples from MS don't seem to work.