Reflection VB.Net

Imports System
Imports System.Reflection
Imports System.ComponentModel.Design
Imports Microsoft.VisualBasic
Class FieldInfo_IsSpecialName
    Public Shared Sub Main()
        Try
            Dim myType As Type = GetType(ViewTechnology)
            Dim myField As FieldInfo() = myType.GetFields()
            Dim i As Integer
            For i = 0 To myField.Length - 1
                If myField(i).IsSpecialName Then
                    Console.WriteLine(myField(i).Name)
                End If
            Next i
        Catch e As Exception
            Console.WriteLine("Exception : {0} ", e.Message.ToString())
        End Try
    End Sub 
End Class