PRB: Using Reserved Keywords as Types

MORE INFORMATION

Steps to Reproduce the Problem

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add the following code to the Form1_Click procedure.

          Private Sub Form1_Click()
             ABC
          End Sub
   						

3. From the Insert menu, choose Module; Module1 will be created.
4. Add the following code to the general declarations section of Module1.

          Public Sub ABC()
             Dim MyObject As New [Dim]
             'the brackets will disappear and the above line will appear as
             'Dim MyObject As New Dim
          End Sub
   						

5. From the Insert Menu, choose Class Module; Class1 will be created. In the Properties menu, set the Name property to Dim.
6. Add the following code to the general declarations section of Class1 module.

          Private MyProperty As Date
   						

7. Edit the single line of code in Module1; for example, retype the word MyObject. The line of code turns red.
8. Start the program by choosing Start from the Run menu (or press F5) and you get "Syntax Error."
9. Re-enter the brackets on the line of code Dim MyObject as New [Dim].
10. From the File menu, choose Save Project As and save all of the project files.
11. From the File menu, choose Open Project and reload the project you just saved.
12. Start the program by pressing F5 and you get "Syntax Error."
13. If you check the single line of code in Module1 you will see that the line of code has again turned red.

List of Reserved Keywords

And                      Function                 PsetOr
Any                      Get                      Private
As                       Global                   Public
ByVal                    GoSub                    ReDim
Call                     GoTo                     Rem
Case                     If                       Resume
Close                    Imp                      Return
Const                    Let                      RSet
Debug                    Like                     Set
Declare                  Local                    Static
Dim                      Loop                     Stop
Do                       Lset                     Sub
Each                     Me                       To
Else                     New                      True
Elseif                   Next                     Type
End                      Not                      Typeof
Endif                    Nothing                  Until
Erase                    Null                     Wend
Eqv                      On                       While
Exit                     Open                     With
False                    Option                   Xor
For