Вот пример демонстрирующий это:
- Код: Выделить всё
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyH And Shift = vbCtrlMask Then
Caption = Now
' Для примера в заголовке будет писаться текущее время
End If
End Sub
Private Sub Form_Load()
Text1.Text = "Нажмите Ctrl+H несколько раз ..."
Text1.SelStart = Len(Text1.Text)
KeyPreview = True
End Sub
Причем это есть не только в VB-шных текстбоксах. Но и в стандартных. То же самое получается в "Пуск" "Выполнить".
--
Как от этого избавится с наименьшими потерями...