چطوری با Esc به فرم قبلی برگردم؟

[A-r-M-a-N]

سلام
اون قسمت
Unload Me
Form1.Show
رو خودم بلدم :لبخند:
حالا چطوری Escape رو تعریف کنم؟

[A-r-M-a-N]

خودم اینجوری تعریفش کردم:
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys "{tab}"
If KeyAscii <> vbKey1 And _
KeyAscii <> vbKey2 And _
KeyAscii <> vbKey3 And _
KeyAscii <> vbKey4 And _
KeyAscii <> vbKey5 And _
KeyAscii <> vbKey6 And _
KeyAscii <> vbKey7 And _
KeyAscii <> vbKey8 And _
KeyAscii <> vbKey9 And _
KeyAscii <> vbKey0 And _
KeyAscii <> vbKeyDelete And _
KeyAscii <> 8 Then
KeyAscii = 27
Else
End If
End Sub

ولی کار نمی کنه :(
باید چیکارش کنم؟

[M.T.P]

دستوری که خودتون نوشتید(کد پست 1) رو برای یک CommandButton بنویسید که خصوصیت Cancel آن True باشد ، در این صورت با فشرده شدن کلید Escape کد این کامند خونده میشه.
در ضمن به Form1.Show نیازی نیست.

[محسن واژدی]

سلام
در تکمیل توضیحات جناب M.T.P:
برای تعریف کردن Cancel بر روی فرم، ابتدا خاصیت KeyPreview فرم را بر روی True تنظیم کرده سپس کد Unload Me را در رویداد KeyDown فرم بصورت زیر وارد کنید:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub


موفق باشید