[AL_BRNS]

السلام عليكم

جرب التالي

PHP كود :

Dim CtrlKey
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then
KeyCode = 0
End If
CtrlKey = Shift
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If CtrlKey = (vbCtrlMask + vbAltMask) And KeyCode = vbKeyF3 Then
End
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub 


بالتوفيق .