' 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_SHIFT = &H10
Private Const VK_CONTROL = &H11
 
Private Declare Sub mouse_event Lib "user32" ( _
 ByVal dwFlags As Long, _
 ByVal dx As Long, _
 ByVal dy As Long, _
 ByVal cButtons As Long, _
 ByVal dwExtraInfo As Long)
 
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

' Shift und Ctrl niedrücken
keybd_event VK_SHIFT, 1, 0, 0
keybd_event VK_CONTROL, 1, 0, 0
 
' rechte Maustaste
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
 
' Shift und Ctrl loslassen
keybd_event VK_SHIFT, 1, KEYEVENTF_KEYUP, 0
keybd_event VK_CONTROL, 1, KEYEVENTF_KEYUP, 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de