Bruno:

me estoy haciendo ya la libreria, y al ejecutar el codigo que se debe iniciar al comienzo del programa a traves de una init procedure me da un error de gpf.Se me inicializa bien,llega hasta messagedlg pero hay da el error...

te pongo el codigo de la procedure init:
ANNOUNCE ESUNADEMO

Init Procedure EsunaDemo
MsgDlg2( "Ventana que se debe cerrar al cabo de 5 segundos", 5)
Return


y la funcion msgdlg2 está en otro modulo, con este codigo:
#include "cabecera.ch"
#include "Gui.ch"

#define mtCustom 4

Function MsgDlg2( cMessage, nSegundos )
Local nContador1, nContador2 , oDlg
nContador1 := TimeToSec(Time())
oDlg:= MessageDlg(cMessage, mtCustom )
Do While .t.
nContador2 := TimeToSec(Time())
If (nContador2-nContador1) > nSegundos
Exit
Endif
Enddo
oDlg:Destroy()
Return NIL

_________________
(C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006