Private Sub Test()

      Dim b As Byte = enuTest1.Opt2

  End Sub

Try this :)

Imports System.Reflection

Class Class1
   Private Enum enuTest1 As Byte
       Opt1 = 0
       Opt2 = 1
       Opt3 = 2
   End Enum

   Private Enum enuTest2 As Byte
       Opt1 = 5
       Opt2 = 6
       Opt3 = 7
   End Enum

   Public Shared Sub Start()
       Test(GetType(enuTest1), "Opt2")
   End Sub

   Public Shared Sub Test( _
       ByVal EnumType As Type, _
       ByVal MemberName As String _
   )
       If Not EnumType.IsEnum
           Throw New ArgumentException( _
               "Expected an enum type, received " & EnumType.Name & ".", _
               "EnumType" _
           )
       End If

       Dim fieldInfo As FieldInfo = EnumType.GetField(MemberName)
       Dim v As Object = fieldInfo.GetValue(Nothing)
       Console.WriteLine(CInt(v))
   End Sub
End Class

HTH,
Mythran

IEnumerator interface exposed by all collections - returns object you
can GetNext GetEnumerator and reset. dim ALEnum AS IEnumerator
ALEnum = AList.GetEnumerator

dim AItems as IEnu.....tor
aItem = aList.GetEn..r
while aitems.movenext
{ process item aItems.Current }
end while

hth

Henz