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_CONTROL = &H11
Private Const VK_MENU = &H12
Private Const VK_T = &H54
 
 
    keybd_event VK_CONTROL, 1, 0, 0
    keybd_event VK_MENU, 1, 0, 0
    keybd_event VK_T, 1, 0, 0
 
    keybd_event VK_T, 1, KEYEVENTF_KEYUP, 0 
    keybd_event VK_MENU, 1, KEYEVENTF_KEYUP, 0 
    keybd_event VK_CONTROL, 1, KEYEVENTF_KEYUP, 0

Gru?

Ralf