From: nivu@niconnu.com   
      
   Many thanks for your fast answer.   
   But... i can't do it working...( excuse me i am french  and new programmer)   
   Could you be more explicit ??   
   What i did:   
      
   Sub Activatetest()   
       returnvalue = Shell(App.Path + "\test.exe", 1)   
       AppActivate returnvalue   
           SendKeys "{RIGHT}", True   
           SendKeys "{RIGHT}", True   
          test =  Form_MouseDown (1,0,10,10)   
   End Sub   
      
   Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,   
   Y As Single)   
       If Button = 1 Then MsgBox "left"   
       If Button = 2 Then MsgBox "right"   
   End Sub   
      
   The sendkeys are executed, but the mouse clic do not work (error at   
   execution time).   
   Many thanks for your help   
      
      
   "StoneWare"  a écrit dans le message de news:   
   4478617a$0$27527$edfadb0f@dread11.news.tele.dk...   
   >   
   > "Totoche"  skrev i en meddelelse   
   > news:e59lst$d9m$1@news.tiscali.fr...   
   >> Hello,   
   >> I cant find a way to send a "mouse clic" (right or left) to an   
   >> application, like SENDKEYS for the keyboard.   
   >> Thanks for any answer   
   >   
   > Use the Form_MouseDown routine...like this   
   >   
   > Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As   
   > Single, Y As Single)   
   >    If Button = 1 Then MsgBox "left"   
   >    If Button = 2 Then MsgBox "right"   
   > End Sub   
   >   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)