Imports System
Imports System.Globalization
Class Sample
Public Shared Sub Main()
Dim ri As New RegionInfo("SE") ' Sweden
Console.WriteLine("Region English Name: . . . {0}", ri.EnglishName)
Console.WriteLine("Native Name: . . . . . . . {0}", ri.NativeName)
Console.WriteLine("Currency English Name: . . {0}", ri.CurrencyEnglishName)
Console.WriteLine("Currency Native Name:. . . {0}", ri.CurrencyNativeName)
Console.WriteLine("Geographical ID: . . . . . {0}", ri.GeoId)
End Sub
End Class