Private Declare Function SendMessageTimeout Lib "user32" Alias _
  "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal msg 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 SMTO_ABORTIFHUNG As Long = &H2
Private Const WM_SETTINGCHANGE As Long = &H1A
 
Dim lngReturnValue As Long
 
SendMessageTimeout HWND_BROADCAST, WM_SETTINGCHANGE, 0&, _
        "Environment", SMTO_ABORTIFHUNG, 5000&, lngReturnValue

Gru?

Ralf