BUG: Phantom MouseMove Events with a Transparent UserControl (192003)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Standard EXE project. Form1 is created by default.
2. From the File menu, add an ActiveX Control project. UserControl1 is created by default.
3. Add a Shape control to UserControl1.
4. Paste the following code into UserControl1's code window:

          Option Explicit
   
          Private Sub UserControl_Initialize()
             UserControl.BackStyle = 0 'Transparent
             Shape1.BackStyle = 1 'Opaque
          End Sub
   
          Private Sub UserControl_MouseMove(Button As Integer, Shift As _
                                           Integer, X As Single, Y As Single)
             Debug.Print "UserControl: Mouse Move"
          End Sub
   
          Public Sub Refresh()
             Shape1.Refresh
          End Sub
   						

5. Close the UserControl's code and design windows.
6. Add an instance of UserControl1 to Form1.
7. Add a Timer control to Form1 and set its Interval property to 2000.
8. Paste the following code into Form1's code window:

          Private Sub Timer1_Timer()
             Debug.Print "Timer: Is mouse moving?"
             UserControl11.Refresh
          End Sub
   						

9. Run the project by pressing the F5 key.
10. Move the mouse over the shape and notice the MouseMove messages in the Immediate Window.
11. Position the mouse over the shape control and stop moving it. When the Timer event fires, a Timer message appears in the Immediate Window, followed immediately by another MouseMove message. The mouse does not need to be moving for this mouse message to appear; it is caused by the Refresh method.
12. Stop the program and change the code in the UserControl_MouseMove event to monitor the values of X and Y and only respond to messages whose X or Y values have changed between calls:

           Private Sub UserControl_MouseMove(Button As Integer, Shift As _
                                            Integer, X As Single, Y As Single)
              Static mX As Single, mY As Single
              If mX <> X Or mY <> Y Then
                 Debug.Print "UserControl: Mouse Move"
                 mX = X
                 mY = Y
              End If
           End Sub
    						

13. Repeat steps 9 through 11. With the mouse stationary over the shape, you should see the Timer messages in the Immediate Window, but not the phantom mouse messages.