Imports System
Imports System.Globalization
Public Class SamplesCultureInfo
Public Shared Sub Main()
' Lists the cultures that use the Chinese language and determines if each is a neutral culture.
Dim ci As CultureInfo
For Each ci In CultureInfo.GetCultures(CultureTypes.AllCultures)
If ci.TwoLetterISOLanguageName = "zh" Then
Console.Write("{0,-6} {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 Class 'SamplesCultureInfo
'This code produces the following output.
'
'zh-CHS Chinese (Simplified) : neutral
'zh-TW Chinese (Taiwan) : specific
'zh-CN Chinese (People's Republic of China) : specific
'zh-HK Chinese (Hong Kong S.A.R.) : specific
'zh-SG Chinese (Singapore) : specific
'zh-MO Chinese (Macao S.A.R.) : specific
'zh-CHT Chinese (Traditional) : neutral