Кто сошел с ума: SendKeys или я

[SHURUP]

Всем привет! Начинаю потихоньку сходить с ума. Происходят странные вещи. Появилась необходимость програмно нажать "Ctrl+Alt+F". Чтоб долго не мучаться пишу

Код: Выделить всё

SendKeys "^%F"

Никакой ракции. Решил проверить, что нажимается. Прозрел.

Сначала, попытайтесь ответить теоретически, что должен выводить на форму такой код:

Код: Выделить всё

Private Sub Form_Click()
    Cls
    SendKeys "%^F", True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Print KeyCode
End Sub

А потом проверьте на практике. У себя я увидел явно не то, что ожидал.

[GSerg]

Разумеется, ты.
shift добавляется потому, что F большая.

[SHURUP]

Разумеется, ты.
shift добавляется потому, что F большая.

F - фиг с ней. Это я понял, уже когда сообщение состряпал, но откуда у меня два нажатия F3 берется.

18 - Alt
17 - Ctrl
16 - Shift
70 - f
144 - ????
144

Переставил винду - тот-же результат. Так и параноиком недолго стать.

[GSerg]

144 не добавляется.

[SK4]

Подскажите дураку, как генерировать нажатия спец. клавиш (F1-F12, Ctrl,Alt, Shift и т. д.)