VBA - Create a time delay before unloading User Form

create delay to unload VBA userform;VBA;VBA unload userform delay;create 5 seconds before unload userform

I had a requirement to unload an VBA user form after few seconds delay, that I used to display progress of the tasks.

Solution:

You may try the below:

Application.Wait Now + TimeValue("0:00:03") 'Create a time delay of 3 seconds

Sample Code:

FrmProgress.Label1.Caption = "Loading data from database...."
FrmProgress.Show
FrmProgress.Repaint

'...code for whatever it is you want to do

Application.Wait Now + TimeValue("0:00:03") 'Create a time delay

Unload FrmProgress

Sample Code 2:

MsgBox "Running Script in Database...Please Wait..", vbInformation, "In-Progress"Wait (5)MsgBox "Script Executed Successfully!", vbInformation, "Execution Completed" Sub Wait(seconds As Integer)      Dim now As Long      now = Timer()      Do          DoEvents      Loop While (Timer < now + seconds)    End Sub