Imports System
Imports System.Globalization
Imports System.Text
Imports Microsoft.VisualBasic
Class SamplesNumberFormatInfo
Public Shared Sub Main()
Dim myInv As NumberFormatInfo = NumberFormatInfo.InvariantInfo
Dim myUE As New UnicodeEncoding(True, False)
Dim myCodes() As Byte
Console.WriteLine(myInv.CurrencyDecimalDigits)
Console.WriteLine(myInv.CurrencyDecimalSeparator)
Console.WriteLine(myInv.CurrencyGroupSeparator)
Console.WriteLine(myInv.CurrencyGroupSizes(0))
Console.WriteLine(myInv.CurrencyNegativePattern)
Console.WriteLine(myInv.CurrencyPositivePattern)
End Sub
End Class