Private Const HWND_BROADCAST = &HFFFF
Private Const WM_SETTINGCHANGE = &H1A
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Object) As Long
Private Sub ExplorerRefresh()
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0)
End Sub