Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal _
bVk As Byte, ByVal bScan As Byte, ByVal dwFlags _
As Long, ByVal dwExtraInfo As Long)
Const VK_LWIN = &H5B
Const VK_APPS = &H5D
Const KEYEVENTF_KEYUP = &H2
Private Sub Command1_Click()
keybd_event VK_LWIN, 0, 0, 0
keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0
End Sub
Versuch's mal hiermit... such dir einfach die passenden Keykonstanten aus der Win32 API heraus und setz sie ein... gibt aber keine Garantie, das es geht
edit: ach quatsch das ist ja für den aufruf von tasen sry