Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Dim strg As Integer
dim tastea As Integer
 
strg = GetAsyncKeyState(vbKeyControl)
tastea = GetAsyncKeyState(vbKeyA)
 
'Wenn STRG + a gedrückt wurde dann ...
If strg < 0 and tastea < 0 Then
MsgBox("STRG+a")
End If

Gruss mm78pr

http://msdn.microsoft.com/de-de/default.aspx