VB如果获取功能键？

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
For i = vbKeyF1 To vbKeyF12
If KeyCode = i Then MsgBox "You have pressed F" & i - 111
Next
If Shift = vbAltMask Then MsgBox "You have pressed ""Alt"""
If Shift = vbCtrlMask Then MsgBox "You have pressed ""Ctrl"""
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

一个api函数，叫做什么get*****state