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 Const HWND_BROADCAST = &HFFFF&
Private Const WM_WININICHANGE = &H1A
Private Const WM_SETTINGCHANGE = WM_WININICHANGE
Private Const SPI_SETNONCLIENTMETRICS = 42
Private Const SMTO_ABORTIFHUNG = &H2
 
Private Function RefreshIcons()
  On Error Resume Next
  Dim lSuccess As Long
  SendMessageTimeout HWND_BROADCAST, WM_SETTINGCHANGE, _
    SPI_SETNONCLIENTMETRICS, 0&, SMTO_ABORTIFHUNG, 1000, lSuccess
End Function

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.