[الباشا شكر]

3booody كتب :[COLOR="#008000"]السلام عليكم ورحمة الله وبركاته
كما قال الاخ ربيع لكن مثاله كان سي شارب تفضل مثال فيجول بيسك[/COLOR]

كود :

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.Control = True And e.KeyCode = Keys.S Then
            Call Save() 'استدعاء طريقة الحفظ
        End If
    End Sub

ياريت مثال بسيط لانى جربت الكثير ومن ضمن ماجربت اضا الكود الاتى
Private Sub IntRMA_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
If e.Control = True And e.KeyCode = Keys.C Then
modcustomer.Show()
ElseIf e.Control = True And e.KeyCode = Keys.T Then
Me.Button6.PerformClick()
ElseIf e.Control = True And e.KeyCode = Keys.I Then
Me.Button5.PerformClick()
ElseIf e.Control = True And e.KeyCode = Keys.S Then
Me.Button1.PerformClick()
ElseIf e.Control = True And e.KeyCode = Keys.P Then
Me.Button9.PerformClick()
ElseIf e.Control = True And e.KeyCode = Keys.X Then
Me.Close()
ElseIf e.KeyCode = Keys.Escape Then
Me.Close()
End If
End Sub