PRB: UserControl Resize Event Fails with MoveWindow API

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a standard Exe Project. Form1 is created by default.
2. Click Add UserControl from the Project menu to add a UserControl to the project.
3. Change the BackColor of the UserControl to Red so you will be able to see the control.
4. Add the following code to the UserControl:

         Public Property Get hWnd() As Long
           hWnd = UserControl.hWnd
         End Property
   
         Private Sub UserControl_Resize()
           Debug.Print "Resize!"
         End Sub
   						

5. Add the UserControl to Form1.
6. Add the following code to Form1:

         Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As _
          Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _
          ByVal nHeight As Long, ByVal bRepaint As Long) As Long
   
         Private Sub Form_Load()
           Me.ScaleMode = vbPixels
         End Sub
   
         Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
          X As Single, Y As Single)
           Static Chop As Boolean
   
           Chop = Not Chop
           With UserControl1
             If Chop Then
              Call MoveWindow(.hWnd, X, Y, .Width \ 2, .Height \ 2, True)
              '.Move X, Y, .Width \ 2, .Height \ 2 'VB Move Method
             Else
              Call MoveWindow(.hWnd, X, Y, .Width * 2, .Height * 2, True)
              '.Move X, Y, .Width * 2, .Height * 2 'VB Move Method
             End If
           End With
         End Sub
   						

7. Save and run the project. Try clicking on the form and note that you will not see the Resize code in the UserControl run. If you comment out the call to the MoveWindow API function and use the Visual Basic Move method in place of the API call, you will see the Resize code for the UserControl run.