Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" ( _
      ByVal vKey As Long) As Integer

Private Declare Sub CopyMemory Lib "kernel32" Alias _
      "RtlMoveMemory" (lpDest As Any, lpSource As Any, _
      ByVal cBytes As Long)

Private Sub Form_Load()
  Dim i As Long
  For i = 0 To (chkFKey.Count - 1)
    chkFKey(i).Caption = chkFKey(i).Caption & CStr(i + 1)
  Next i
End Sub

Private Sub tmrCheckKeys_Timer()
  Dim i As Long
  Dim nRetVal As Long

  For i = KeyCodeConstants.vbKeyF1 To KeyCodeConstants.vbKeyF12
    nRetVal = GetAsyncKeyState(i)
    If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
      chkFKey(i - 112).Value = 1
    Else
      chkFKey(i - 112).Value = 0
    End If
  Next i
End Sub

Private Function LoWord(ByVal dwValue As Long) As Integer
  Call CopyMemory(LoWord, dwValue, 2&)
End Function

Private Function HiWord(ByVal dwValue As Long) As Integer
  Call CopyMemory(HiWord, ByVal VarPtr(dwValue) + 2, 2&)
End Function