Mega Code Archive
NumberFormatInfo CurrencyGroupSizes
<![CDATA[
Imports System
Imports System.Globalization
Class NumberFormatInfoSample
Public Shared Sub Main()
Dim nfi As NumberFormatInfo = New CultureInfo("en-US", False).NumberFormat
Dim myInt As Int64 = 123456789012345
Console.WriteLine(myInt.ToString("C", nfi))
Dim mySizes1 As Integer() = {2, 3, 4}
Dim mySizes2 As Integer() = {2, 3, 0}
nfi.CurrencyGroupSizes = mySizes1
Console.WriteLine(myInt.ToString("C", nfi))
nfi.CurrencyGroupSizes = mySizes2
Console.WriteLine(myInt.ToString("C", nfi))
End Sub
End Class
]]>