Imports System
Imports System.Globalization
Public Class SamplesCultureInfo
Public Shared Sub Main()
Dim myCI As New CultureInfo("en-US")
Dim myReadOnlyCI As CultureInfo = CultureInfo.ReadOnly(myCI)
If myCI.IsReadOnly Then
Console.WriteLine("myCI is read only.")
Else
Console.WriteLine("myCI is writable.")
End If
If myCI.DateTimeFormat.IsReadOnly Then
Console.WriteLine("myCI.DateTimeFormat is read only.")
Else
Console.WriteLine("myCI.DateTimeFormat is writable.")
End If
If myCI.NumberFormat.IsReadOnly Then
Console.WriteLine("myCI.NumberFormat is read only.")
Else
Console.WriteLine("myCI.NumberFormat is writable.")
End If
If myReadOnlyCI.IsReadOnly Then
Console.WriteLine("myReadOnlyCI is read only.")
Else
Console.WriteLine("myReadOnlyCI is writable.")
End If
If myReadOnlyCI.DateTimeFormat.IsReadOnly Then
Console.WriteLine("myReadOnlyCI.DateTimeFormat is read only.")
Else
Console.WriteLine("myReadOnlyCI.DateTimeFormat is writable.")
End If
If myReadOnlyCI.NumberFormat.IsReadOnly Then
Console.WriteLine("myReadOnlyCI.NumberFormat is read only.")
Else
Console.WriteLine("myReadOnlyCI.NumberFormat is writable.")
End If
End Sub 'Main
End Class