Private Declare Function InvalidateRect Lib "user32" ( _
        ByVal hwnd As Integer, _
        ByRef lpRect As RECT, _
        ByVal bErase As Integer) As Integer
 
    Private Structure RECT
        Public Left As Integer
        Public Top As Integer
        Public Right As Integer
        Public Bottom As Integer
    End Structure
 
    ' Desktop aktualisieren
    Public Sub DesktopRefresh()
        InvalidateRect(0, Nothing, False)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist