BUG: Invalid Code Generated Implementing Outlook.Mailitem

MORE INFORMATION

Steps to Reproduce Problem

1. Start Visual Basic or, if Visual Basic is already running, choose New Project.
2. Select Project from the menu, and then select the References item. Choose the Microsoft Outlook 8.0 object module.
3. Add a class module named Class1, and then add the following code:

         IMPLEMENTS OUTLOOK.MAILITEM
   						

4. Select "MailItem" from the Object drop-down box, and then select "SaveAs" from Procedures/Events drop-down box. The following code gets inserted in the code window:

         Private Sub MailItem_SaveAs(ByVal Path As String,_
           Optional ByVal Type As Variant)
   
         End Sub
   						

5. Note that the second argument is "Type," which is a reserved word in Visual Basic.
6. Save the project as Project1.
7. Close the project.
8. Open Project1 and view your code in Class and note that the code looks like the following in the editor:

         'This line is in red >>>   Private Sub MailItem_SaveAs(ByVal Path As
         String, Optional ByVal Type As Variant)
   
         'This line is in black>>>   End Sub