Imports System.Globalization
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim amount As Double = 4.52
Dim _date As DateTime = DateTime.Now
Dim info As CultureInfo
For Each info In CultureInfo.GetCultures(CultureTypes.AllCultures)
TextBox2.Text += info.EnglishName & vbCrLf
TextBox2.Text += (info.Name & vbCrLf)
If Not info.IsNeutralCulture Then
TextBox2.Text += (amount.ToString("C", info.NumberFormat)) & vbCrLf
TextBox2.Text += _date.ToString("d", info.DateTimeFormat) & vbCrLf
End If
Next
End Sub