Creo que para eso tienes que poner un timer con un interval de 100 o asi, y dentro usar la api GetAsyncKeyState
algo asi:
Código vb:
Ver originalPrivate Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
if GetAsyncKeyState(vbKeyControl)<>0 then
if GetAsyncKeyState(vbKeyK)<>0 then
msgbox "pulsado ctrl+k"
end if
end if
End Sub
de ese modo siempre se esta mirando el teclado