событие при нажатие на любую клавишу

[Genna]

Подскажите, как сделать чтоб при нажатие на любую клавишу происходило, например закрытие формы.

[Nord777]

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

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.KeyPreview = True
    End Sub

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        Me.Close()
    End Sub

[Genna]

Спасибо это то что нужно.

[Роман-вб]

В VB6 было так:

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

Private Sub Form_KeyPress(KeyAscii As Integer)

End Sub

А что теперь вместо KeyAscii?

[Ramzes]

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)