Imports System
Imports System.Globalization
Class Sample
Public Shared Sub Main()
Dim westernCI As New CultureInfo("en-US")
Dim arabicCI As New CultureInfo("ar-SA")
Dim thaiCI As New CultureInfo("th-TH")
Dim shape As DigitShapes
Dim name As String
Dim intro As String = "The digit substitution value for the {0} culture is {1}."
' Western culture.
name = westernCI.EnglishName
shape = westernCI.NumberFormat.DigitSubstitution
Console.WriteLine(intro, name, shape)
End Sub
End Class