1Class EnumAccess1
2    Enum Test
3        Value1
4        Value2
5        Value3 = Value1
6        Value4 = Value2
7    End Enum
8
9    Shared Function Tester(Optional ByVal Param As Test = Test.Value2) As Integer
10        Return 0
11    End Function
12
13    Shared Function Main() As Integer
14        Return Tester
15    End Function
16End Class