21-01-17, 03:12 AM
(آخر تعديل لهذه المشاركة : 21-01-17, 03:15 AM {2} بواسطة sendbad100.)
كود :
Dim B1, B2, B3 As Boolean
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Select Case KeyCode
Case 17
B1 = True
Case 18
B2 = True
Case 114
B3 = True
End Select
If B1 And B2 And B3 Then
Unload Me
End If
End Sub
