Private Const WM_WININICHANGE = &H1A
Private Const WM_SETTINGCHANGE = WM_WININICHANGE

Private Const HWND_BROADCAST = &HFFFF&
Private Const SMTO_ABORTIFHUNG = &H2
Private Const SMTO_NORMAL = &H0

Private Const SPI_SETNONCLIENTMETRICS = 42

Private Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long

Private Sub Command1_Click()

SendMessageTimeout HWND_BROADCAST, WM_SETTINGCHANGE, _
SPI_SETNONCLIENTMETRICS, _
ByVal StrPtr(StrConv("WindowMetrics", vbFromUnicode)), _
SMTO_NORMAL Or SMTO_ABORTIFHUNG, 10000, ByVal 0&
End Sub