Imports System
Imports System.Globalization
Imports System.Threading
Class Sample
Public Shared Sub Main()
Dim currentCI As CultureInfo = Thread.CurrentThread.CurrentCulture
Dim nfi As NumberFormatInfo = currentCI.NumberFormat
Dim nativeDigitList As String() = nfi.NativeDigits
Console.WriteLine(currentCI.Name)
Dim s As String
For Each s In nativeDigitList
Console.WriteLine(s)
Next s
End Sub
End Class