Option Explicit
 
' Erforderliche Deklarationen
Private Const LVM_FIRST = &H1000
Private Const LVM_REDRAWITEMS As Long = (LVM_FIRST + 21)
 
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal _
  hWnd&, ByVal wMsg&, ByVal wParam&, lParam As Any)
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
  lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA" ( _
ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As _
String, ByVal lpWindowName As String)
 
' Diese Funktion muss zum neuzeichnen aufgerufen werden
Public Sub RefreshDesktop()
    Call RefreshDesktopLVW(GetSysLVWHwnd)
End Sub
 
' Diese Funktion gibt das Handle des DesktopLVWs zurück
Public Function GetSysLVWHwnd() As Long
    Dim h As Long
    h = FindWindow("Progman", vbNullString)
    h = FindWindowEx(h, 0, "SHELLDLL_defVIEW", vbNullString)
    GetSysLVWHwnd = FindWindowEx(h, 0, "SysListView32", vbNullString)
End Function
 
' Diese Funktion schickt schließlich die "neuzeichnen"-Message an das 
' angegebene Handle
Public Function RefreshDesktopLVW(lHwnD As Long) As Long
    RefreshDesktopLVW = SendMessage(lHwnD, LVM_REDRAWITEMS, 0, 0&)
End Function

For VB Tools visit :: www.planetultra.de ::