ник: KrukVN
сканера нет под рукой - проверить не могу
но может попробовать спросить у GetKeyState, какая клавиша нажата и сравнить ее с KeyCode:
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Sub d1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim gks As Integer
gks = GetKeyState(KeyCode)
If (-127 = gks) Or (-128 = gks) Then
Me.Caption = "клава"
Else
Me.Caption = "не клава"
End If
End Sub
|
честно говоря удивлюсь если это сработает, но проверить наверное стоит