FIX: Use of Implements and Public Constants Crashes Compiler

MORE INFORMATION

1. Start a new Standard EXE project.
2. Add a new module (Module1) and add the following code:

         Public Type tFont
            Color As Long
            Angle As Integer
            Bold As Byte
            Italic As Byte
            Underline As Byte
            StrikeOut As Byte
            PointSize As Single
            Name As String * LF_FACESIZE
         End Type
   
   					

3. Add another module (Module2) to the project and add the following code:

         Global Const LF_FACESIZE As Long = 32
   
   					

4. Add a third module (Module3) to the project and add the following code:

         Sub Main()
   
         End Sub
   
   					

5. Add a class (Class1) to the project and add the following code:

         Private mtWindowProps As tFont
   
         Public Property Let BorderStyle(nNewValue As Integer)
         End Property
   
         Public Property Get BorderStyle() As Integer
         End Property
   
   					

6. Add a second class (Class2) to the project and add the following code:

         Implements Class1
   
         Private Property Get Class1_BorderStyle() As Integer
         End Property
   
         Private Property Let Class1_BorderStyle(RHS As Integer)
         End Property
   
   					

7. Compile the project, using either p-code or native code. You should get an Application Error:
   
   In Windows NT 4.0:
   The instruction at <address> referenced memory at <address>. The memory could not be read.[ASCII 148]
   In Windows 95, Windows 98, and Windows Me:
   VB5 has caused an invalid page fault in module VBA5.DLL at <address>