mcs/btests/EnumC3.vb

   1 Imports System\r
   2 \r
   3 Module M\r
   4         Public Enum E1 As Long\r
   5                 A = 2\r
   6                 B\r
   7         End Enum\r
   8 \r
   9    Sub Main()\r
  10         Dim i as long = E1.c\r
  11     End Sub\r
  12 End Module\r