Option Explicit On
Option Strict On
 
Class CountryCodes
 
		Public Shared Function GetCountryName ( code As String )  As String
			Dim t As Type = GetType( CountryCodes )
			dim value as String = nothing 
			For Each p As Reflection.PropertyInfo In t.GetProperties()
				value = p.GetValue (nothing, new Object() {}).ToString()
				If value.ToUpper().Equals ( code.ToUpper()) Then
					return p.Name 
				End If
			Next
			return nothing
		End Function
 
		Public Shared ReadOnly Property AFGHANISTAN AS String
			Get
				Return "AF"
			End Get
		End Property
 
		Public Shared ReadOnly Property LAND_ISLANDS AS String
			Get
				Return "AX"
			End Get
		End Property