' benötigte API-Deklarationen
Private Declare Sub keybd_event Lib "user32" ( _
  ByVal bVk As Byte, _
  ByVal bScan As Byte, _
  ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)
 
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_WIN = &H5B

' Desktop anzeigen
keybd_event VK_WIN, 1, 0, 0
keybd_event Asc("D"), 1, 0, 0
 
keybd_event Asc("D"), 1, KEYEVENTF_KEYUP, 0
keybd_event VK_WIN, 1, KEYEVENTF_KEYUP, 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de