如何小弟我的WM_KEYDOWN不起作用啊死了,找一上午资料也没找到

怎么我的WM_KEYDOWN不起作用啊.急死了,找一上午资料也没找到.
我是新手,我的程序代码如下,怎么搞记事本里都没有被输入内容,到底咋回事啊.急死了

Private   Declare   Function   SendMessage   Lib   "user32 "   Alias   "SendMessageA "   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   lParam   As   Any)   As   Long

Dim   ahwnd   As   Long   '   储存   FindWindow   函数返回的句柄

Private   Sub   Form_Load()
        ahwnd   =   FindWindow(vbNullString,   "记事本 ")
        If   ahwnd   =   0   Then
                MsgBox   "程序没有运行! "
                End
        End   If
      Timer1.Interval   =   1000
End   Sub

Private   Sub   Timer1_Timer()
        SendMessage   ahwnd,   WM_KEYDOWN,   98,   0
End   Sub


[解决办法]
ahwnd = FindWindow(vbNullString, "无标题 - 记事本 ")
ahwnd = FindWindowEx(ahwnd, 0, "Edit ", " ")