很多复杂的对话框中，不管当前焦点在哪个控件上，按ESC键就退出。请教除了在每个控件中做处理外，有没有简便的办法

很多复杂的对话框中，不管当前焦点在哪个控件上，按ESC键就退出。请问除了在每个控件中做处理外，有没有简便的办法？
同上。谢谢。

------解决方案--------------------
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyEscape Then
Unload Me
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub
------解决方案--------------------
楼上正解