Imports System.Globalization

Public Class Example

   Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
      ' Prints the header.
      outputBlock.FontFamily = New System.Windows.Media.FontFamily("Courier New")
      outputBlock.Text &= "SPECIFIC CULTURE                             PARENT CULTURE" & vbCrLf

      ' Create an array of Chinese culture names.
      Dim cultureNames() As String = { "zh-CN", "zh-Hans", "zh-Hant", "zh-HK", _  
                                       "zh-MO", "zh-SG", "zh-TW" }

      ' Determines the specific cultures that use the Chinese language, and displays the parent culture.
      For Each cultureName As String In cultureNames
         Dim ci As New CultureInfo(cultureName) 
         outputBlock.Text &= String.Format("{0,-7} {1,-37}", ci.Name, ci.EnglishName)
         outputBlock.Text &= String.Format("{0,-7} {1}", ci.Parent.Name, ci.Parent.EnglishName) & vbCrLf
      Next 
   End Sub 
End Class 
' This example produces the following output.
'    SPECIFIC CULTURE                             PARENT CULTURE
'    zh-CN   Chinese (People's Republic of China) zh-Hans Chinese 
'    zh-Hans Chinese                                      Invariant Language (Invariant Country)
'    zh-Hant Chinese                                      Invariant Language (Invariant Country)
'    zh-HK   Chinese (Hong Kong S.A.R.)           zh-Hant Chinese 
'    zh-MO   Chinese (Macao S.A.R.)               zh-Hant Chinese 
'    zh-SG   Chinese (Singapore)                  zh-Hans Chinese 
'    zh-TW   Chinese (Taiwan)                     zh-Hant Chinese 

using System;
using System.Globalization;

public class Example
{
   public static void Demo(System.Windows.Controls.TextBlock outputBlock)
   {
      // Displays the header.
      outputBlock.FontFamily = new System.Windows.Media.FontFamily("Courier New");
      outputBlock.Text += "SPECIFIC CULTURE                             PARENT CULTURE" + "\n";

      // Create an array of Chinese culture names.
      string[] cultureNames = { "zh-CN", "zh-Hans", "zh-Hant", "zh-HK",  
                                "zh-MO", "zh-SG", "zh-TW", };

      // Determines the specific cultures that use the Chinese language, and displays the parent culture.
      foreach (string cultureName in cultureNames)
      {
         CultureInfo ci = new CultureInfo(cultureName);
         outputBlock.Text += String.Format("{0,-7} {1,-37}", ci.Name, ci.EnglishName);
         outputBlock.Text += String.Format("{0,-7} {1}\n", ci.Parent.Name, ci.Parent.EnglishName);
      }
   }
}
/*
This example produces the following output.

SPECIFIC CULTURE                             PARENT CULTURE
zh-CN   Chinese (People's Republic of China) zh-Hans Chinese 
zh-Hans Chinese                                      Invariant Language (Invariant Country)
zh-Hant Chinese                                      Invariant Language (Invariant Country)
zh-HK   Chinese (Hong Kong S.A.R.)           zh-Hant Chinese 
zh-MO   Chinese (Macao S.A.R.)               zh-Hant Chinese 
zh-SG   Chinese (Singapore)                  zh-Hans Chinese 
zh-TW   Chinese (Taiwan)                     zh-Hant Chinese 
*/