BUG: Windowless OptionButton Events Not in Correct Order (190038)

MORE INFORMATION

The proper sequence is the following order: the LostFocus event of the previous control followed by the GotFocus and Click events of the active control.

Instead, the order when navigating with the ARROW keys is the following: the Click event of the active control, then the LostFocus event of the previous control, followed by the GotFocus event of the active control.

NOTE: The Microsoft Windowless Controls are not part of the default Visual Basic installation. Please refer to the REFERENCES section below for details.

Steps to Reproduce Behavior

1. Create a new Standard EXE project. Form1 is created by default.
2. Using the Projects menu, select Components to bring up the Components dialog box. On the Controls Tab, check "Microsoft Windowless Controls." Then click OK.
3. Add a Frame, Frame1, to Form1.
4. Add two Windowless OptionButtons, WLOption1 and WLOption2, to Frame1.
5. Add the following code to Form1:

         Private Sub WLOption1_Click()
            Debug.Print "WLOption1_Click"
         End Sub
   
         Private Sub WLOption1_GotFocus()
            Debug.Print "WLOption1_GotFocus"
         End Sub
   
         Private Sub WLOption1_LostFocus()
            Debug.Print "WLOption1_LostFocus"
         End Sub
   
         Private Sub WLOption2_Click()
            Debug.Print "WLOption2_Click"
         End Sub
   
         Private Sub WLOption2_GotFocus()
            Debug.Print "WLOption2_GotFocus"
         End Sub
   
         Private Sub WLOption2_LostFocus()
            Debug.Print "WLOption2_LostFocus"
         End Sub
   						

6. Run the Project.
7. Click on the OptionButtons with the mouse. When the OptionButtons are navigated by clicking with the mouse, the events are fired in the proper order:

   LostFocus
   GotFocus
   Click

8. Use the ARROW keys to navigate between the OptionButtons. When the OptionButtons are navigated by using the ARROW keys, the events are not fired in the proper order:

   Click
   LostFocus
   GotFocus