TextBox1.Text = String.Format(CultureInfo.InvariantCulture, "{0:ggg yyyy/MM/dd HH:mm:ss.fffffff}", Now)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ComboBox1.DataSource = System.Globalization.CultureInfo.GetCultures(System.Globalization.CultureTypes.AllCultures) End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged ListBox1.Items.Clear() Dim ci = TryCast(ComboBox1.SelectedItem, System.Globalization.CultureInfo) If ci Is Nothing Then Return Else System.Threading.Thread.CurrentThread.CurrentCulture = ci End If TextBox1.Text = Now.ToString("G") TextBox2.Text = 1234.5678D.ToString("G") ListBox1.Items.Add($"Name = {ci.Name}") ListBox1.Items.Add($"EnglishName = {ci.EnglishName}") ListBox1.Items.Add($"NativeName = {ci.NativeName}") ListBox1.Items.Add($"DisplayName = {ci.DisplayName}") ListBox1.Items.Add($"IetfLanguageTag = {ci.IetfLanguageTag}") ListBox1.Items.Add($"TwoLetterISOLanguageName = {ci.TwoLetterISOLanguageName}") ListBox1.Items.Add($"ThreeLetterISOLanguageName = {ci.ThreeLetterISOLanguageName}") ListBox1.Items.Add($"ThreeLetterWindowsLanguageName = {ci.ThreeLetterWindowsLanguageName}") ListBox1.Items.Add($"LCID = {ci.LCID}") End Sub