VB.Net/Development/RegionInfo

Region Info Table

  
Imports System
Imports System.Globalization
Module Module1
   Sub Main()
      Dim AllCultures() As CultureInfo
      Dim ACulture As CultureInfo
      Dim Rg As RegionInfo
      Dim k As Integer
      AllCultures = CultureInfo.GetCultures(CultureTypes.SpecificCultures)
      For Each ACulture In AllCultures
         Rg = New RegionInfo(ACulture.LCID)
         Console.WriteLine(Rg.TwoLetterISORegionName.ToString().PadRight(5, " ") + _
                              "," + Rg.EnglishName.PadRight(40, " ") + _
                              "," + ACulture.LCID.ToString())
      Next
   End Sub
End Module