PRB: "Edit Redo" Not Available for Text Box

MORE INFORMATION

Steps to Reproduce Behavior

1. Run the following code:

         frmEditRedo=CREATEOBJECT("form")
         frmEditRedo.CAPTION = "Edit Undo/Redo"
         frmEditRedo.ADDOBJECT("txt","textbox")
         frmEditRedo.ADDOBJECT("ed","editbox")
         frmEditRedo.txt.VISIBLE=1
         frmEditRedo.ed.VISIBLE = 1
         frmEditRedo.ed.LEFT = 150
         frmEditRedo.SHOW(1)

2. Type a letter in the text box and select the Edit menu. Undo is available on the Edit menu and selecting Undo will undo the last entry. Select the Edit menu item again and the Undo option is available but Redo is not available.
3. Type a letter in the edit box and then select the Edit menu. Undo is available, and selecting Undo will undo the last entry. Select the Edit menu item again and the Redo option is available.