Dim no As CultureInfo = System.Globalization.CultureInfo.CurrentCulture
MessageBox.Show(no.ToString)
MessageBox.Show(GetUserDefaultLangID())
Public Declare Auto Function GetUserDefaultLangID Lib "kernel32" Alias "GetSystemDefaultLangID" () As Integer
Public Declare Auto Function GetUserDefaultLangID Lib "kernel32" Alias "GetSystemDefaultLangID" () As Short