Date Time VB.Net

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