Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF8 Then
KeyCode = 0
Print "f8"
End If
End Sub

Private Sub Form_Load()
KeyPreview = True
End Sub
如果只是窗体的话!这样就够了，如果要系统的话,要用到api了

windows没有进入之前的,估计就是bios设置有关了吧