إستفسار : ربط الكي بورد بالفورم

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
	Case vbKey1, vbKeyNumpad1
		MsgBox "1"
	Case vbKey2, vbKeyNumpad2
		MsgBox "2"
	Case vbKey3, vbKeyNumpad3
		MsgBox "3"
End Select
End Sub

مشكوووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور

أخ msayed2004

و يعطيك العافية