Automatically close a dialog box (after 30 sec)?

Questions
,
1

I am trying to keep the user updated about the what is going on in the code and for that purpose I use dialog boxes such as

CreateDialog[Style["Initilization complete"]];

but after a 30 sec or so I would like to be able to close the window automatically. Is that possible?

2

Using ScheduledTasks can accomplish this… here is just one example (with 10 seconds so you don’t have to wait too long to see it work):

Module[{nb},
 nb = CreateDialog[Style["Initilization complete"]]; 
 RunScheduledTask[NotebookClose[nb], {1}, AbsoluteTime[Date[] + {0, 0, 0, 0, 0, 10}]]
 ]
3

Working like a charm.Thank you David.