BUG: Conditionally Compiled Public Events May Cause an Access Violation (320103)

MORE INFORMATION

Steps to Reproduce the Problem

1. Create a new ActiveX.dll project, and then paste the following code in the Class1 module:

   Option Explicit
   
   'Move L here and everything will be fine!
   'Public L As Long
   
   #Const switch = False
   
   Public Event ev1()
   Public Event ev2()
   
   #If switch Then
       Public Event Ev3()
       Public Event Ev4()
   #End If
   
   Public Event ev5()
   
   'L has had HelpID and Description attributes set with the Object Browser.
   'Find L for your class in the Object Browser, and then select "Properties."
   
   Public L As Long
   
   Public Event ev6()
   					

2. On the Tools menu, click Procedure Attributes.
3. In the Name dialog box, click L.
4. In the Description dialog box, type Test.
5. In the Help Context ID dialog box, type 1.
6. On the File menu, click Save, and then click Make the dll.
7. Create a new Standard Exe project. By default, Form1 is created.
8. On the Project menu, click References, select the reference to the ActveX.dll project that you just created, and then click OK.
9. Place a Command Button control on Form1.
10. Open the form in code view, and then paste the following code:

    Private Sub Command1_Click()
        'Change Project1 to the name of the ActiveX.dll project that you just created.
        Dim x As Project1.Class1
        Set x = New Class1
        x.L = 5
        MsgBox x.L
    End Sub
    					

11. Run the project and you will receive the access violation.