Class Sample
Public Shared Sub Main()
Dim numbers() As Double = { -1.53e16, -123.4321,1.99999}
Dim cultureNames() As String = { "en-US", "fr-FR", "ja-JP", "ru-RU" }
For Each number As Double 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
Next
End Sub
End Class