Is this correct(keyboard events)?

[sapator]

Hi.
I try to pass a presskey event but i cannot do it.
I'm using Smartphone 2003

  
 Declare Sub keybd_event Lib "coredll.dll" (ByVal bVk As Byte, ByVal bScan As  Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Dim VK_BACK As Byte = &H8
           Dim KEYEVENTF_KEYDOWN As integer = &H0

        Dim KEYEVENTF_KEYUP As integer = &H2
        keybd_event(VK_BACK, 0, KEYEVENTF_KEYDOWN, 0)
        keybd_event(VK_BACK, 0, KEYEVENTF_KEYUP, 0)

I does not work thought.
Anyone?