Reflection VB.Net

Imports System
Imports Microsoft.VisualBasic
Namespace SystemType
    Public Class [MyClass]
        Enum MyEnum
            One
            Two
        End Enum 
        Public Overloads Shared Sub Main()
            Try
                Dim myBool As Boolean = False
                Dim myTestEnum As MyEnum = MyEnum.One
                Dim myType As Type = myTestEnum.GetType()
                myBool = myType.IsValueType
                Console.WriteLine(ControlChars.Cr + "Is {0} a value type? {1}.", myType.FullName, myBool.ToString())
            Catch e As Exception
                Console.WriteLine(ControlChars.Cr + "An exception occurred: {0}", e.Message.ToString())
            End Try
        End Sub 'Main
    End Class '[MyClass]
End Namespace 'SystemType