كود تنفيذ أوامر عند الضغط على F9 ,F10

0
ضع الكود في الفورم

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 120 Then
   Email = InputBox("Enter Your Name :", "تحياتي")
   End If
    
   If KeyCode = 121 Then
   Email = InputBox("Enter Your E-mail :", "تحياتي")
   End If
End Sub

جميع الحقوق محفوظه © Visual Basic 6 MAN