Formulário acima das outras janelas

Olá a todos do forum, bom dia.

Gostaria de saber se existe alguma forma de deixar meus formulários sempre acima das outras janelas, onde mesmo que eu clique em outro programa o formulário fique por cima, são formulários pequenos em pop-up.

Grato.

Em propriedades do formulário tem a opção Pop-up, só marcar sim.

Não era isso, veja o exemplo que consegui, porém agora eu gostaria que o formulário 01 abrisse o formulário 02 e em seguida fechasse o 01.

Alguém ajuda?

fiz assim, mudei os nomes:

Formulário 1:

Option Compare Database

Private Sub Form_Load()
DoCmd.MoveSize 1000, 50, , 2000
   'Veja o módulo basTopo
   Call TopMost(Form)
End Sub

Private Sub btn_telainicial_Click()
   DoCmd.Close
DoCmd.OpenForm "form2", acnormal
End Sub

Private Sub btn_fechar_Click()
   DoCmd.Close
End Sub
'-----------------------------------

Formulário 2:

Option Compare Database

Private Sub Form_Load()
DoCmd.MoveSize 0, 0, , 10000
   Call TopMost(Form)
End Sub

Private Sub btn_abrirform_Click()
   DoCmd.Close
DoCmd.OpenForm "form1", acnormal
End Sub

Private Sub Fechar_Click()
   DoCmd.Close
End Sub

depois pode ocultar a janela , criando o módulo:
1º copie a BD para fazer o teste.

Option Compare Database
Option Explicit
'Autor de la función base: Indeterminado
'Declaraciones
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "User32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Function AccessTransparente(Nivel As Integer)
'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
'Objetivo: Ajustar el nivel de transparencia de la ventana principal
' de access. El nivel de transparencia debe estar entre 0 a 250
'.............................................................................
Dim lngHwnd As Long
If Nivel < 0 Or Nivel > 250 Then Exit Function
lngHwnd = Application.hWndAccessApp
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
End Function


e ao abrir a BD chamar a função:
Private Sub Form_Load()
Call AccessTransparente(0)

Aqui eu tentei e retornou vários erros, tem como enviar um exemplo?

se o sistema for 32 bits retire o Ptrsafe da mensagem nº5

https://www.maximoaccess.com/t24935-forms-sempre-no-topo-com-form-abrindo-logo-abaixo

https://www.maximoaccess.com/t23628-formulario-sempre-visivel

http://www.cnet.com/how-to/keep-any-application-always-on-top-in-windows/