whether the current CultureInfo represents a neutral culture.
Imports System Imports System.Globalization Module Module1 Public Sub Main() Dim ci As CultureInfo For Each ci In CultureInfo.GetCultures(CultureTypes.AllCultures) If ci.TwoLetterISOLanguageName = "zh" Then Console.Write("{0,-7} {1,-40}", ci.Name, ci.EnglishName) If ci.IsNeutralCulture Then Console.WriteLine(": neutral") Else Console.WriteLine(": specific") End If End If Next ci End Sub 'Main End Module