Imports Infragistics.Win
Imports Infragistics.Win.UltraWinEditors
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim provider As IFormatProvider = System.Globalization.CultureInfo.CreateSpecificCulture("ja-JP")
Me.UltraDateTimeEditor1.FormatProvider = provider
Me.UltraNumericEditor1.FormatProvider = provider
Me.UltraCurrencyEditor1.FormatProvider = provider
End Sub