Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic
Class SamplesNumberFormatInfo
Public Shared Sub Main()
Dim myNfi As New NumberFormatInfo()
Dim myInt As Int64 = - 1234
Dim i As Integer
For i = 0 To 4
myNfi.NumberNegativePattern = i
Console.WriteLine("Pattern {0}" + ControlChars.Tab + ":" _
+ ControlChars.Tab + "{1}", myNfi.NumberNegativePattern, _
myInt.ToString("N", myNfi))
Next i
End Sub
End Class