Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Command1_Click()
PostMessage 3148296, WM_KEYDOWN, VK_A, 0& '按下F1键


End Sub

PostMessage 3148296, WM_KEYDOWN, VK_A, byval 0& '按下F1键