Quando não é necessário ir até o final de um cadastro, por exemplo, e o cursor estiver em um textbox no qual tenha o codigo de fechar com a tecla ESC:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then
Unload Me
End If
funciona só com o evento KeyPress de um objeto.
Postado : 28/08/2012 10:14 am