Для того чтобы узнать не нажата та или иная клавиша обращаемся к функции WinApi - GetAsyncKeyState(код клавиши) c соответствующим кодом клавиши, если значение, возвращенное функцией, не 0 значит клавиша нажата, а теперь код:

    1. Создайте новый проект.
    2. Поместите на форму Timer и установите интервал 50.
    3. Добавьте модуль и поместите в него следующий код:

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

        Public Const VK_TAB = &H9.

    3. Разместите в событии Timer:

        If GetAsyncKeyState(VK_TAB) >< false Then
            msgbox "Нажата клавиша Tab", vbinformation
        End If

    4. Сохраните, запустите и нажмите Tab.

Для непонятливых смотрите более подробный пример: Trick_2(Скачать)