Class Sample
Public Shared Sub Main()
Dim numbers() As Byte = { 12, 100, Byte.MaxValue }
Dim cultureNames() As String = { "en-US", "fr-FR" }
For Each number As Byte In numbers
Console.WriteLine("{0}:", Convert.ToString(number, _
System.Globalization.CultureInfo.InvariantCulture))
For Each cultureName As String In cultureNames
Dim culture As New System.Globalization.CultureInfo(cultureName)
Console.WriteLine(" {0}: {1,20}", _
culture.Name, Convert.ToString(number, culture))
Next
Console.WriteLine()
Next
End Sub
End Class