Hiding access window faster

I'm using the hide access code, when access itialy opens I still see the access window for a few seconds what can I do to speed the code up

Compile and Save all modules, for one thing.
Compress the DB regularly, for another.

Those two are easy. More than that requires knowledge of your db structure, and even then there are no guarantees.

Compiled and compressed already still the same.

Did you deselect the "display db window" in the StartUp options?

create your own splash screen when the db opens, cover the db window with it

Ok selecting the db at start up doesn't help because its not that window.
Tried creating a splash screen but I need to find some code to size the Access window cover it with it.

Option Compare Database
Option Explicit

Declare Sub SetWindowPos Lib "User32" (ByVal hWnd&, _
ByVal hWndInsertAfter&, _
ByVal X&, ByVal Y&, ByVal cX&, _
ByVal cY&, ByVal wFlags&)

Global Const HWND_TOP = 0 'Moves MS Access window to top
'of Z-order.

'Values for wFlags.

Global Const SWP_NOZORDER = &H4 'Ignores the hWndInsertAfter.


Function SizeAccess()
Dim cX As Long, cY As Long, cHeight As Long
Dim cWidth As Long, H As Long
'Get handle to Microsoft Access.
H = Application.hWndAccessApp

cX = 15
cY = 15
cWidth = 650
cHeight = 500

'Position Microsoft Access.
SetWindowPos H, HWND_TOP, cX, cY, cWidth, cHeight, SWP_NOZORDER
Application.RefreshDatabaseWindow
End Function

Thanks Rich,

I found something else @ peters Software

can you modify this code at all to set the access window size but allow the window to open up in the position it was last opened in?