Attribute VB_Name = "hidedatabasewindows"
Option Compare Database

Public Function DisplayOpenWindowsInTaskbar(bDisplay As Boolean)
On Error GoTo Err_DisplayOpenWindowsInTaskbar
    
    If bDisplay = True Then
        Application.SetOption "ShowWindowsInTaskbar", True
    Else
        Application.SetOption "ShowWindowsInTaskbar", False
        Application.SetOption "Show Hidden objects", False
        Application.SetOption "Show System objects", False
        Application.SetOption "Show Status bar", False
        Application.SetOption "Show Startup Dialog Box", False
        Application.SetOption "Show New Object Shortcuts", False

   End If
    
Exit_DisplayOpenWindowsInTaskbar:
    Exit Function
    
    
Err_DisplayOpenWindowsInTaskbar:
    If Err.Number = 2091 Then 'ShowWindowsinTaskbar is an invalid name [Access 95/97 error]
        Exit Function

    End If
    
End Function
