Hide database

I am trying to hide my database and this script works well.

But then in the visible database I want to be able to click a button and make the other database visible, but I am not sure how to specify which database to make hidden or visible.

Code:

---

Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hwnd As LongPtr, ByVal nCmdShow As LongPtr) As LongPtr

Sub test77()
HideAccess (False) 'change to true to show
End Sub

Function HideAccess(Hide As Boolean) '*** 0=Hide, 3=maximize
Dim AccessWnd As LongPtr, What As Integer
What = IIf(Hide, 0, 3)
AccessWnd = Application.hWndAccessApp
Call ShowWindow(AccessWnd, What)
End Function

---

Hide database