Me.Painting = False 'turn off screen updating temporarily
'omit the ...Or WS_EX_APPWINDOW ...section to hide the taskbar icon
SetWindowLong Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_APPWINDOW
ShowWindow Application.hWndAccessApp, SW_HIDE
ShowWindow Me.hWnd, SW_SHOW
Me.Painting=True 'turn on screen updating again
DoCmd.Restore