Try this instead,
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub UserForm_Activate()
DoEvents
Sleep 5000
Unload Me
End Sub
Place the above in you userform module. Your splash screen will stay visable
for 5 sec note, you will have to trigger the userform in an event i.e
Workbook_open() or what ever.





"Shazi" wrote:


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.