On Jun 18, 7:12*pm, "PaulD" <nospam wrote:
change the 12 to a 5

*Dim dTime As Date
* * Dim i As Integer
* * For i = 1 To 100 Step 100 / 5 '<-this number sets the approx number of
seconds
* * dTime = Now + TimeValue("0:00:01")
* * Application.Wait TimeValue(dTime)
* * ProgressBar1.Value = i
* * Next i

Paul D

"Shazi" wrote in message

...
:
: Dear Sir,
:
: I am preparing VBA program and I made a procedure for the Splash
: Screen when Excel Loads.
:
: Pls find below my procedure for the Userform of Splash Screen.
:
:
: '=======================================
: Option Explicit
:
: Private Sub UserForm_Click()
: * *Unload Me
: End Sub
:
: Private Sub UserForm_Activate()
:
: * *Application.DisplayFullScreen = True
: * *Application.CommandBars("Worksheet Menu Bar").Enabled = False
:
: * *Dim dTime As Date
: * *Dim i As Integer
: * *For i = 1 To 100 Step 100 / 12
: * *dTime = Now + TimeValue("0:00:01")
: * *Application.Wait TimeValue(dTime)
: * *ProgressBar1.Value = i
: * *Next i
:
: End Sub
:
: Private Sub Userform_Initialize()
:
: * *Label3.Caption = Format(Now, "dddd d mmmm yyyy hh:mm:ss")
: * *HideTitleBar Me
:
: End Sub
:
: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
: Integer)
:
: * *If CloseMode = vbFormControlMenu Then
: * *Cancel = True
: * *MsgBox Prompt:=" Sorry but I can't let you do that. "
: * *End If
: End Sub
:
: '==========================================
:
: My problem is this I want to reduce the time for it, currently it
: displays for 12 seconds, but I want to display this splash screen only
: for 5 seconds and then close.
:
: Pls tell me how to reduce the time to 5 seconds.
:
: Waiting for your response.
:
: Regards.
:
: Syed Shahzad Zafar
: Madinah
: KSA.


Hi,

I changed 12 to 5 seconds. now it is working excellent.

Thanks for your support.

Regards.

Shahzad