[Aly El-Haddad]

سعود كتب :ضمن حدث

كود :

KeyDown

للفورم الحالي اكتب

كود :

If e.KeyData = Keys.Control + Keys.F Then            
Dim frm As New Form1
            frm.Show()
        End If

ملاحظة! لا يعمل الكود في حال تمكين Tabstop
بلا شك اخواننا لديهم كود افضل.

الكود يعمل في حال تمكين Tabstop لكن بشرط تمكين خاصية KeyPreview للـForm