Imports System
Imports System.Globalization
Imports System.Security.Permissions
Imports System.Threading
Public Class SamplesCultureInfo
Public Shared Sub Main()
Console.WriteLine("CurrentCulture is {0}.", CultureInfo.CurrentCulture.Name)
Thread.CurrentThread.CurrentCulture = New CultureInfo("th-TH", False)
Console.WriteLine("CurrentCulture is now {0}.", CultureInfo.CurrentCulture.Name)
Console.WriteLine("CurrentUICulture is {0}.", CultureInfo.CurrentUICulture.Name)
Thread.CurrentThread.CurrentUICulture = New CultureInfo("ja-JP", False)
Console.WriteLine("CurrentUICulture is now {0}.", CultureInfo.CurrentUICulture.Name)
End Sub
End Class