[Microformt]

(21-01-17, 02:20 AM)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 


بالتوفيق .

اخي العزيز 
 السلام عليكم ورحمة وبركاته
 لك مني الف شكر وتقدير على ما تقدمه من دعم
 تحياتي