jeje
ya me salio
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub
y lo que se me olvidaba.. y por lo que no me salia.. tenia que poner la propiedad
KeyPreview en true ya me estoy olvidando programar.. jeje
chau