Вызов формы клавишей

[auta]

Здравствуйте!
Мне требуется помощь. Я программирую на VB5. Я хотел бы узнать, как сделать так, чтобы при нажатии одной клавиши на клавиатуре (например, A) открывалась одна форма, а при нажатии другой клавиши (например, S) - другая форма и т.д. Всего должно быть более 30 форм, которые должны вызываться нажатием клавиши. Заранее благодарен за ответ!

С уважением,
Новиков Вячеслав
E-mail: info@auta.ru

[dr.MIG]

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA
Form2.Visible = True
Case vbKeyS
Form3.Visible = True
End Select
End Sub

и т.д.

[Ramzes]

Только вместо Formn.Visible=True, Formn.Show

[auta]

Спасибо за ответ! Почему-то этот вариант у меня не работает. При нажатии на нужную клавишу ничего не происходит. Буду очень благодарен за ответ!

[Хакер]

на поменяй свойсвто KeyPreview

[auta]

Спасибо Вам за ответы! Благодаря Вашей помощи проблема решена.

С уважением,
Новиков Вячеслав