' 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
 
 
' Windows-Desktop anzeigen
Public Sub ShowDesktop()
 
  ' Windows-Taste niederdr�cken
  keybd_event VK_WIN, 1, 0, 0 
 
  ' D-Taste niederdr�cken
  keybd_event Asc("D"), 1, 0, 0 
 
 
  ' D-Taste loslassen
  keybd_event Asc("D"), 1, KEYEVENTF_KEYUP, 0 
 
  ' Windows-Taste loslassen
  keybd_event VK_WIN, 1, KEYEVENTF_KEYUP, 0
End Sub