Mah............ ci saranno sicuramente soluzioni più "eleganti".

Comunque questa, buttata lì sui due piedi, funziona:

codice:
        Dim RetVal As Short = GetAsyncKeyState(Keys.ControlKey)

        If RetVal <> 0 Then
            If GetAsyncKeyState(Keys.A) <> 0 Then Debug.Print("Premuto Control + A")
        End If