BUG: Inconsistent Firing of ListBox Click Event Using Keyboard

MORE INFORMATION

Steps to Reproduce Behavior

1. Run the following code:

         PUBLIC ox
         ox = CreateObject("test")
         ox.show
   
         DEFINE CLASS test AS form
            Top = 0
            Left = 0
            Height = 231
            Width = 249
            DoCreate = .T.
            Caption = "Form1"
            Name = "Form1"
            ADD OBJECT list1 AS listbox WITH ;
               RowSourceType = 1, ;
               RowSource = "One,Two,Three,Four,Five,Six,Seven,Eight", ;
               Height = 193, ;
               Left = 24, ;
               Top = 12, ;
               Width = 205, ;
               Name = "List1"
            PROCEDURE list1.Click
               WAIT WINDOW NOWAIT this.value
            ENDPROC
         ENDDEFINE
   							

2. Use the Up/Down arrow keys.
   
   NOTE: The Click event fires, bringing up the WAIT WINDOW.
3. Use the PageUp/PageDown keys.