主题：[讨论]这算是模拟单击的bug吗？

If Forms("窗口1").Opened AndAlso e.Table.Current IsNot Nothing Then

    Dim r As Row = e.Table.Current

    Select Case e.KeyCode

        Case Keys.F9

            e.Cancel = True

            Forms("窗口1").Controls("Button1").PerformClick()

        Case Keys.F10

            e.Cancel = True

            Forms("窗口1").Controls("Button2").PerformClick()

            

    End Select

End If

结果，无论按键是 enable 还是 disable 状态 都是可以用按键代码单击。