Borrar cajas de texto con la funcion Esc

[natalyro]

David lo tengo dentro del bucle es mas envio el codigo que entre todos hemos hecho

If KeyAscii = vbKeyEscape Then ' KeyEscape = 27
KeyAscii = 0 'evita que sea visto después por los controles.
'Rutina para vaciar todos los TextBox:
Dim CT As Control
For Each CT In Me.Controls 'recorre todos los controles
If TypeOf CT Is TextBox Or ComboBox Then
CT.Text = vbNullString
Combo_Cliente.Clear
Cmb_Producto.Clear
Combo_terminos.Clear
Cmb_Direccion.Clear
Cmb_Moneda.Clear
Combo_Vendedor.Clear
Cmb_Moneda2.Clear
Combo_Activa.Clear
End If
Next CT
End If
End Sub