Deskop anzeigen über Button

[SG05]

Hallo Zusammen,

ich möchte, dass über ein Button im Formular ( A 2003 ) der Befehl "Desktop anzeigen" ausgeführt wird.

Hat jemand eine Lösung?

Danke im vorraus

[DF6GL]

Hallo,

z. B.:


in ein Standardmodul legen:

Code [Auswählen] Erweitern


Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Sub ToggleDesktop()
  keybd_event &H5B, 1, 0, 0
  keybd_event Asc("D"), 1, 0, 0
  keybd_event Asc("D"), 1, &H2, 0
  keybd_event &H5B, 1, &H2, 0
End Sub



Aufruf:

Code [Auswählen] Erweitern

Sub btnDesktop_Click()
ToggleDesktop
End Sub