VB.Net/Development/RegionInfo

Region Info Table

<source lang="vbnet"> 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

 </source>