how add splash screen for a application

[SamNeo]

I have disigned a splach form for my application it is appearing at the back of my mdiform what shoul I do to get it in the front when the project starts.

 

[dsi]

If you are loading the splash screen after your mdiform, you should hide your mdiform then show your splash form.

Or, you can show the spash screen before your load any additional forms.

Dim StartTime As Single

frmSplash.Show
StartTime = Timer
Do While Timer < StartTime + 1.5
    DoEvents
Loop
frmSplash.Hide

'Then show your MDI form

Or, if you need to force the form on top, you can use the SetWindowPos API function.

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

Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Dim i As Long

'Force Form On Top
i = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)

'Remove Forced Setting
i = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)