Pop-up Box close automatically

[C.Utzinger]

HI

I have These Pop-up function from Lee Mac and looking for a Pop-up Window wich closes automatically after a few seconds.

Is that possible?

(defun LM:popup ( ttl msg bit / wsh rtn )
    (if (setq wsh (vlax-create-object "wscript.shell"))
        (progn
            (setq rtn (vl-catch-all-apply 'vlax-invoke-method (list wsh 'popup msg 0 ttl bit)))
            (vlax-release-object wsh)
            (if (not (vl-catch-all-error-p rtn)) rtn)
        )
    )
)

BR

[Ranjit_Singh]

May be change the 0 to how many seconds you wish to wait before the popup closes. 

........
(list wsh 'popup msg 3 ttl bit) ; wait 3 seconds
.........