Option Explicit
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal _
  hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
 
Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Const WM_KEYDOWN = &H100
 
 
 
' Benötigte API-Deklarationen
Private Declare Function InvalidateRect Lib "user32" ( _
  ByVal hWnd As Long, _
  lpRect As Any, _
  ByVal bErase As Long) As Long
 
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
' Desktop aktualisieren
Public Sub DesktopRefresh()
  Dim nResult As Long
 
  nResult = InvalidateRect(0&, 0&, False)
  If nResult <> 0 Then
    Call InvalidateRect(0&, 0&, False)
  End If
End Sub
 
 
Public Sub Run_Desktop_Refresh()
Dim DeskWin As Long
 
'Aktualisierung der HTML-Seiten auf dem Desktop
DeskWin = FindWindowEx(0&, 0&, "Progman", vbNullString)
DeskWin = FindWindowEx(DeskWin, 0&, "SHELLDLL_DefView", vbNullString)
DeskWin = FindWindowEx(DeskWin, 0&, "SysListView32", vbNullString)
PostMessage DeskWin, WM_KEYDOWN, &H74, &H3F0001
 
'eigentlicher Desktop
Call DesktopRefresh
 
End Sub