BUG: New Implements Does Not Generate Incompatibility Error

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new ActiveX DLL project in Visual Basic. Class1 will be created by default.
2. Set the Instancing Property of Class1 to 2-PublicNotCreateable.
3. Add a Class to the project by selecting Add Class Module from the Project menu.
4. Add the following code to Class1:

         Public Class2 As Class2
   						

5. Add the following code to Class2:

         Public Class1 As Class1
   						

6. From the File Menu, click on Make Project1 to compile the Project and make Project1.dll
7. From the Project Menu, select Project1 Properties.
8. Select the Component tab, check the Binary Compatibility Radio Button, and then click OK to set Binary Compatibility.
9. Comment out the data member in Class2 as shown below:

         ' Public Class1 As Class1
   						

10. In Class2, paste the following code:

          Implements Class1
          Private Property Set Class1_Class2(ByVal RHS As Class2)
    
          End Property
    
          Private Property Get Class1_Class2() As Class2
    
          End Property
    						

11. Recompile the project, and make the Project1.Dll. Note that the ActiveX DLL compiles as expected. However, a compatibility error should have been raised.