Imports System
Imports Microsoft.Win32
Imports System.Windows.Forms
 
 
Public Class Form1
 
    Public Sub New()
 
        MyBase.New()
 
        'This call is required by the Windows Form Designer.
        InitializeComponent()
 
        'Adds Handler to receive Events for any changes in the windows control 
        ' panel 
        AddHandler SystemEvents.UserPreferenceChanging, AddressOf _
          SystemEvents_UserPreferenceChanging
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Me.PutDataToUI()
    End Sub
 
    Private Sub SystemEvents_UserPreferenceChanging(ByVal sender As Object, _
      ByVal e As UserPreferenceChangingEventArgs)
        If e.Category = UserPreferenceCategory.Locale Then
            My.Application.Culture.ClearCachedData()
            My.Application.UICulture.ClearCachedData()
            Me.PutDataToUI()
        Else
        End If
    End Sub
 
    ''' <summary>
    ''' Puts some data to an textbox 
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub PutDataToUI()
 
        Me.TextBox1.Text = My.Application.Culture.DisplayName & vbCrLf _
                      & My.Application.Culture.EnglishName & vbCrLf _
                      & Now.ToLongDateString & vbCrLf _
                      & Now.ToLongTimeString & vbCrLf _
                      & Now.ToShortDateString & vbCrLf _
                      & Now.ToShortTimeString & vbCrLf _
                      & My.Application.Culture.Name & vbCrLf _
                      & My.Application.UICulture.NativeName
    End Sub
 
End Class