ник: Анатолий (Киев)
Private Declare Function apiSendMessageTimeout Lib "user32" _
Alias "SendMessageTimeoutA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String, ByVal fuFlags As Long, _
ByVal uTimeout As Long, lpdwResult As Long) As Long
Private Const HWND_BROADCAST As Long = &HFFFF
Private Const WM_SETTINGCHANGE As Long = &H1A 'WM_WININICHANGE
Private Const SMTO_ABORTIFHUNG = &H2
Ваша Call SetLocaleInfo(...) видимо оболочка над одноименной API функцией. На всякий случай даю и ее.
Private Declare Function apiSetLocaleInfo Lib "kernel32" _
Alias "SetLocaleInfoA" (ByVal Locale As Long, _
ByVal LCType As Long, ByVal lpLCData As String) As Long
Private Const LOCALE_SYSTEM_DEFAULT = &H800
Private Const LOCALE_USER_DEFAULT = &H400