vb2005 Sendkeys ทำอย่างไรถึงจะเป็นการส่งที่เหมือนกับการกดปุ่ม

Public Class FormSendJim

    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd As IntPtr, ByVal hWndChildAfterA As IntPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As IntPtr
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr
    Const WM_SETTEXT As Integer = &HC

    Private Sub btnSendJim_Click(sender As System.Object, e As System.EventArgs) Handles btnSendJim.Click
        Dim destination As IntPtr = FindWindow(Nothing, "Jim - Notepad")
        Dim destControl As IntPtr = FindWindowEx(destination, IntPtr.Zero, "Edit", Nothing)
        SendMessage(destControl, WM_SETTEXT, IntPtr.Zero, "Jim" & vbTab & "Price" & vbCrLf)
    End Sub

End Class