Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
      bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Const VK_Z As Byte = 90
    Private Const VK_y As Byte = 89
 
 
 If wParam.ToInt32 = WM_KEYDOWN Then keybd_event(VK_Z, 0, 0, 0)

Danke für die Hilfe

Gruß Christian