<求助>键盘事件·键盘F1 F2 F3，分别控制3个Checkbox的开启与关

Private Sub Check1_KeyDown(KeyCode As Integer, Shift As Integer)
     Select Case KeyCode
         Case 112 '按下F1
             '改变复选框的选中状态
             Check1.Value = IIf(Check1.Value = vbChecked, vbUnchecked, vbChecked)
         Case 113 '按下F2
             Check2.Value = IIf(Check2.Value = vbChecked, vbUnchecked, vbChecked)
         Case 114 '按下F3
             Check3.Value = IIf(Check3.Value = vbChecked, vbUnchecked, vbChecked)
     End Select
End Sub


F1 timer：
if getasynckeystate(112) then 'F1:112, F2:113, F3:114, etc.
check1.value = check1.value xor 1
end if