[fastpho]

@Kuk , no me explicado bien , desde el ProcDragFile.cbl obtengo el archivo arrastrado
con la funcion DragQueryFileA :

          IF  MSG = WM_DROPFILES
             call "DragQueryFileA" with stdcall using by value WPARAM
                                                      by value 0
                                                      by reference dropFileName
                                                      by reference fileSize
                
                    
                      string dropFileName  
                          delimited by x"00" into EXP-FILE-NAME
                      end-string
 
*                    display "Fichero: " EXP-FILE-NAME        
*                    display "fileSize: " fileSize *> SIEMPRE ZEROS        
          END-IF.

en la variable dropFileName tengo el nombre del archivo
ahora como le paso ese dato al formulario que tiene en este caso un control
cmImage , la unica forma que encontre es metiendo un control timer en el formulario,
en la variable que se llama EXP-FILE-NAME que esta declarada como External Global en el
formulario y en el ProcDragFile.cbl como External

Luego en el timer tengo :

      IF EXP-FILE-NAME NOT = SPACES THEN 
          *> display "Fichero TIMER: " EXP-FILE-NAME        
          MOVE EXP-FILE-NAME TO "ImageName" OF CmImage1
      END-IF.

Esta implementacion me esta funcionando , pero tengo el timer consumiendo cpu



Saludos...