Private Sub Form_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)

If KeyCode = 27 Then

MessageBox.Show("You Click The Escape Key")
Me.currentage_TextBox.Undo()

End If

End Sub

why i click the escape key and it wont work ????

some one please help me thanx