Imports System
Imports System.Globalization
Public Class SamplesCultureInfo
Public Shared Sub Main()
Dim myCI As New CultureInfo("en-US", False)
Dim myCIclone As CultureInfo = CType(myCI.Clone(), CultureInfo)
myCIclone.DateTimeFormat.AMDesignator = "a.m."
myCIclone.DateTimeFormat.DateSeparator = "-"
myCIclone.NumberFormat.CurrencySymbol = "USD"
myCIclone.NumberFormat.NumberDecimalDigits = 4
Console.WriteLine(myCI.DateTimeFormat.AMDesignator)
Console.WriteLine(myCIclone.DateTimeFormat.AMDesignator)
Console.WriteLine(myCI.DateTimeFormat.DateSeparator)
Console.WriteLine(myCIclone.DateTimeFormat.DateSeparator)
Console.WriteLine(myCI.NumberFormat.CurrencySymbol)
Console.WriteLine(myCIclone.NumberFormat.CurrencySymbol)
Console.WriteLine(myCI.NumberFormat.NumberDecimalDigits)
Console.WriteLine(myCIclone.NumberFormat.NumberDecimalDigits)
End Sub
End Class