Adding text box to rich text box

[yuleball]

I have tried that but its not working. I have added following code to the click event of "Add Text" menu entry

Dim Text1 As TextBox
With Text1
   ZOrder 0
End With

When i run it nothing happens. Any ideas.....