Private Declare Auto Function PostMessage Lib "user32" (ByVal hwnd As _
      Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As _
      Integer) As Integer
    Private Declare Auto Function GetWindow Lib "user32" (ByVal hwnd As _
    Integer, ByVal wCmd As Integer) As Integer
    Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As _
    String, ByVal lpWindowName As String) As Integer
 
    Private Const GW_CHILD As Integer = 5
    Private Const WM_KEYDOWN As Integer = 256
 
    Private Sub RefreshDesktop()
 
        Dim hwnd As Integer = FindWindow("Progman", "Program Manager")
        hwnd = GetWindow(hwnd, GW_CHILD)
        Dim res As Integer = PostMessage(hwnd, WM_KEYDOWN, Keys.F5, 3)
 
    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