Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const VB_F1 = &H70Private Sub Form_Load()
Timer1.Enabled = True
hWnd0 = FindWindow("窗口类名", vbNullString)Debug.Print hWnd0
End SubPrivate Sub Timer1_Timer()
  PostMessage hWnd0, WM_KEYDOWN, VB_F1, 0&
  PostMessage hWnd0, WM_KEYUP, VB_F1, 0&
End Sub函数我都做了声明的
但是不知道为什么PostMessage在Timer下不起作用?在其他控件下可以的!