'-----------------------------------------------------------------------
'  This file is part of the Microsoft .NET Framework SDK Code Samples.
' 
'  Copyright (C) Microsoft Corporation.  All rights reserved.
' 
'This source code is intended only as a supplement to Microsoft
'Development Tools and/or on-line documentation.  See these other
'materials for detailed information regarding Microsoft code samples.
' 
'THIS CODE AND INFORMATION ARE PROVIDED AS IS WITHOUT WARRANTY OF ANY
'KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
'IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
'PARTICULAR PURPOSE.
'-----------------------------------------------------------------------
Imports System
Imports System.Globalization

Class CultureAndRegion

    Public Shared Sub Main()

        Dim c As CultureInfo
        c = New CultureInfo("en-us")
        Console.WriteLine("The CultureInfo is set to: {0}", c.DisplayName)
        Console.WriteLine("The parent culture is: {0}", c.Parent.DisplayName)
        Console.WriteLine("The three letter ISO language name is: {0}", c.ThreeLetterISOLanguageName)
        Console.WriteLine("The default calendar for this culture is: {0}", c.Calendar.ToString())

        Console.WriteLine()

        Dim r As RegionInfo
        r = New RegionInfo("us")
        Console.WriteLine("The name of this region is: {0}", r.Name)
        Console.WriteLine("The ISO currency symbol for the region is: {0}", r.ISOCurrencySymbol)
        Console.WriteLine("Is this region metric : {0}", r.IsMetric)


        Console.WriteLine()
        Console.WriteLine()

        Dim c2 As CultureInfo
        c2 = New CultureInfo("de-ch")
        Console.WriteLine("The CultureInfo is set to: {0}", c2.DisplayName)
        Console.WriteLine("The parent culture is: {0}", c2.Parent.DisplayName)
        Console.WriteLine("The three letter ISO language name is: {0}", c2.ThreeLetterISOLanguageName)
        Console.WriteLine("The default calendar for this culture is: {0}", c2.Calendar.ToString())
        Console.WriteLine()

        Dim r2 As RegionInfo
        r2 = New RegionInfo("de")
        Console.WriteLine("The name of this region is: {0}", r2.Name)
        Console.WriteLine("The ISO currency symbol for the region is: {0}", r2.ISOCurrencySymbol)
        Console.WriteLine("Is this region metric : {0}", r2.IsMetric)

        Console.WriteLine()
        Console.WriteLine("Press Enter to continue...")
        Console.ReadLine()

    End Sub

End Class