BUG: Pages of PageFrame Created with AddObject Method Invisible

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a form called pageform.
2. Add a pageframe object and set the following properties:

         TabStretch : 0 - Multiple Rows - in Visual FoxPro version 5.x.
         TabStretch : 0 - Stack         - in Visual FoxPro version 3.x.
         Height     : 135
         Width      : 330

3. Create a program called Pageform.prg using the following code:

         PUBLIC pageform
         DO FORM pageform
         DO WHILE pageform.pageframe1.PAGECOUNT < 12
           lcpagename = "Page" + ALLTRIM(STR(pageform.pageframe1.PAGECOUNT+1))
           pageform.pageframe1.ADDOBJECT(lcpagename,"Page")
           pageform.pageframe1.ACTIVEPAGE=pageform.pageframe1.PAGECOUNT
           lcpageadd="PageForm.PageFrame1."+lcpagename+ ;
              ".AddObject('TextBox1','TextBoxa')"
           &lcpageadd
           pageform.REFRESH
         ENDDO
         RETURN
   
         DEFINE CLASS textboxa AS TEXTBOX
            TOP=25
            LEFT=10
            HEIGHT=20
            WIDTH=100
            VISIBLE=.T.
         ENDDEFINE