Const VK_PAUSE = &H13
Const VK_WIN = &H5B
 
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal _
  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub Command1_Click()
    keybd_event VK_WIN, 0, 0, 0   ' drücke WIN
    keybd_event VK_PAUSE, 0, 0, 0  'drücke PAUSE
 
    keybd_event VK_PAUSE, 0, KEYEVENTF_KEYUP, 0   ' PAUSE wieder freigeben
    keybd_event VK_WIN, 0, KEYEVENTF_KEYUP, 0  ' WIN wieder freigeben
End Sub

Gru?

Ralf