Snippet Library

Option Explicit
 Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
 Private Const HWND_TOPMOST = -1
 Private Const HWND_NOTOPMOST = -2
 Private Const SWP_NOMOVE = &H2
 Private Const SWP_NOSIZE = &H1

 Private Sub Form_Load()
 Dim sngWaitTime As Single
                                             
 sngWaitTime = 5
                                             
 'assure the splash form gets displayed
 Me.Show
                                             
 'set the splash screen to stay on top
 SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
                                             
 'wait 5 seconds
 Wait sngWaitTime
                                             
 'splash screen no longer needs to be on top
 SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, 0
                                             
 'hide and unload the splash screen
 Me.Hide
 Unload Me
                                             
 'show the main form
 Load frmMain
 frmMain.Show
                                                
 End Sub

 Private Sub Wait(sngSecs As Single)
 Dim lStrt As Single
                                             
 lStrt = Timer
                                             
 Do Until Timer - lStrt >= sngSecs
 DoEvents
 If Timer < lStrt Then
                                                
                                                    'this condition just in case timer resets to 0 at 'midnight so that this sub will not get stuck in 'an endless loop
                                                    If (86400 + Timer) - lStrt >= sngSecs Then
                                                        Exit Do
                                                    End If
                                                    
 End If
Loop
                                             
End Sub

none;