Imports System
Imports System.Globalization
Module Module1
Public Sub Main()
Dim mostCultureTypes() As CultureTypes = { _
CultureTypes.FrameworkCultures, _
CultureTypes.WindowsOnlyCultures}
Dim allCultures() As CultureInfo
Dim combo As CultureTypes
allCultures = CultureInfo.GetCultures(CultureTypes.AllCultures)
Dim ci As CultureInfo
For Each ci In allCultures
Console.WriteLine("Culture: {0}", ci.Name)
combo = ci.CultureTypes
Dim ct As CultureTypes
For Each ct In mostCultureTypes
If 0 <> (ct And combo) Then
Console.WriteLine(ct)
End If
Next ct
Next ci
End Sub
End Module