[Resolvido]MsgBox fechar depois de um click num botão, depois de 1 segundo

Boa tarde Amigos

Tenho este comando num click de um botão.
Ao fazer click, abre a MsgBox informa:    Já vou fechar ...
E sem fazer mais nada fecha a BD

Pergunto: Porque não funciona em todas as BD. Se alguém conhece me informe

Private Sub Comando23_Click()
Dim MsgBoxTempo As Object
Set MsgBoxTempo = CreateObject("WScript.Shell")
MsgBoxTempo.PopUp "Já vou fechar ...", "1", "Aviso", vbOKOnly + vbInformation
DoCmd.Quit
End Sub


Obrigado

Boa noite, Assis
Não será apenas
Dim MsgBoxTempo As Object
Set WShell = CreateObject("WScript.Shell")
MsgBoxTempo = WShell.PopUp("Já vou fechar ...", "1", "Aviso")

Boas Alexandre

Não resulta



Obrigado

Bom dia, Assis

Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Titulo As String) As VbMsgBoxResult
Dim WShell
'Segue um código que cria uma msgbox com tempo:
Set WShell = CreateObject("WScript.Shell")
MsgBoxTimer = WShell.PopUp(Prompt, Seconds, Titulo, Buttons)
End Function

MsgBoxTimer 1, "Já vou fechar ...", , "Aviso"

Bom dia Alexandre

Não fecha

Para testar, Clikar no botão "Sair"

Obrigado

Coloca a função num módulo global, não do formularío

Alexandre
E igual.

Olá a todos,
Assis, estive a verificar (passando para Módulo, como o colega Alexandre já tinha referido) e no seu formulário não funcionava.
No entanto testando numa sub, funcionava. ???
Criei um novo Formulario, copiei e já funciona.
Segue meu teste:
meocloud.pt/link/10e9ad19-2957-4d2a-94ca-593a4d0bc679/Ler_HD_rev.zip/

Fiquei foi sem compreender qual a propriedade do seu formulário que estava a provocar a situação.
Caso ao alterar alguma propriedade que normalmente use e passe a dar o erro, avise.
Abraço a todos

Obrigado Teixeira e Alexandre

Mas copiei o modulo " mod_msgbox "para outro BD e com o mesmo comando

MsgBoxTimer 1, "Já vou fechar ...", , "Aviso"
DoCmd.Quit

Nada ..... não fecha.

Não sei qual a propriedade diferente dos formulário, vou tentar descobrir e informo.

Obrigado

No meu, não executou no módulo do formulário e fechou em módulo separado