Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal _
     dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal _
     dwExtraInfo As Integer)    ' Class,  Inherits,  DIESE-DEF.,  Sub ...
 
    Public Declare Function SetCursorPos Lib "user32" (ByVal X As Integer, _
      ByVal Y As Integer) As Integer    ' Class,  Inherits,  DIESE-DEF.,  Sub 
    ' ...
 
        ' zum Programm umschalten
        AppActivate("C:\0\1-ORIGINALE")    ' mit Fenster-Namen    ODER    mit 
        ' AppActivate(FTPStart) --- wobei FTPStart=Objektname ist
        ' Position einnehmen
        SetCursorPos("313", "598")    ' X, Y
        ' Klicken    LEFTDOWN = &H2,    LEFTUP = &H4    MIDDLEDOWN = &H20    
        ' MIDDLEUP = &H40    RIGHTDOWN = &H8    RIGHTUP = &H10    MOVE = &H1    
        ' Doppelklick=      ABSOLUTE-POSITION!!!
        mouse_event(&H2, 0, 0, 0, 0)    ' Links-Maus-Klick RUNTER
        mouse_event(&H4, 0, 0, 0, 0)    ' Links-Maus-Klick RAUF