Data Types VB.Net

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