Option Explicit
'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 = &H5
Private Const VK_WIN = &H5B
 
Private Sub Command1_Click()
' Windows-Desktop anzeigen
 
'Windows-Taste niederdrücken
  keybd_event VK_WIN, 0, 0, 0
 
'D-Taste niederdrücken
  keybd_event Asc("D"), 0, 0, 0
 
'D-Taste loslassen
  keybd_event Asc("D"), 0, KEYEVENTF_KEYUP, 0
'Windows-Taste loslassen
  keybd_event VK_WIN, 0, KEYEVENTF_KEYUP, 0
 
SendKeys Chr(133)
 
End Sub