Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Sub test()
Const WM_WININICHANGE = &H1A
Const WM_SETTINGCHANGE=&H1A
Call SendMessage(Me.hwnd, WM_SETTINGCHANGE, 0, 0)
End Sub