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