PostMessage模拟键盘的问题

Question

Private Sub tb1(nn)
  For tt = 1 To nn
    Dim HWND1 As Long
    HWND1 = FindWindow(vbNullString, "Form1")
    PostMessage hwnd, 0, 9, MapVirtualKey(9, 0)
    PostMessage hwnd, WM_KEYDOWN, 9, MapVirtualKey(9, WM_KEYDOWN) Next tt
    PostMessage hwnd, 0, 13, MapVirtualKey(13, 0)
    PostMessage hwnd, WM_KEYDOWN, 13, MapVirtualKey(13, WM_KEYDOWN)    
    
End SubCall tb1(4)  'tab移动4次，并按回车 ,这里不采用这个方法了
模拟　　'tab移动4次，并按回车好象没有效果是哪里的问题　？

Answer 1

PoastMessage 的第一个参数应该是 HWND1，否则你 FindWindow 做什么。
还有完整的按键除了 KEYDOWN 还应该有 KEYUP。