Culture e Lingua

Imports System.Threading

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ci As New _
System.Globalization.CultureInfo( _
Thread.CurrentThread.CurrentCulture.ToString())



ListBox1.Items.Add("CURRENT CULTURE'S INFO")
ListBox1.Items.Add("Culture's Name: " & ci.Name)
ListBox1.Items.Add("Culture's Parent Name: " & ci.Parent.Name)
ListBox1.Items.Add("Culture's Display Name: " & ci.DisplayName)
ListBox1.Items.Add("Culture's English Name: " & ci.EnglishName)
ListBox1.Items.Add("Culture's Native Name: " & ci.NativeName)
ListBox1.Items.Add("Culture's Three Letter ISO Name: " & _
ci.ThreeLetterISOLanguageName)
ListBox1.Items.Clear()
ListBox1.Items.Add("Calendar Type: " & ci.Calendar.ToString())
End Sub
End Class