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