Fechar MsgBox

[Conras]

Tem como fechar o MsgBox automaticamente após um tempo?

Sub MsgBoxTeste

MsgBox ("Sua Menssagem", 0, "Seu título")

Wait 50

"""Fechar"""

End Sub

[schiavinatto]

Ola @Conras, se existir o tempo devera estar no comando MsgBox, pois se não fechar ele não vai para o Wait, pesquisei e não encontrei tal comando…

[Conras]

Olá @Gilberto Schiavinatto Também pesquisei bastante sobre isso e não encontrei referências. Essa sistemática que coloquei foi apenas para ter uma noção do que preciso. Em excel existe 02 formas de fazer este procedimento, mas para LO não achei nada infelizmente.

[schiavinatto]

Ola @Conras, também tive a necessidade desta função da Msgbox e acabei de encontrar:

    Sub btn_Click()
    	CustomMsgBox "Ola, mundo", 2, "Titulo"
    End Sub
    
    Sub CustomMsgBox(ByVal Prompt, ByVal Timeout, ByVal Title)
' @Prompt 	{string} 	mensagem
' @Timeout 	{integer}	tempo em segundos
' @Title	{string}	texto barra titulo
    	CreateObject("WScript.Shell").Run _
    			"mshta.exe vbscript:close(CreateObject(""WScript.shell"").Popup(""" & _
    			Prompt & """," & Timeout & ",""" & Title & """))"	
    End Sub

Fonte: Fechar MsgBox Automaticamente - Elipse E3 - Elipse Forum

[Conras]

Olá @schiavinatto,

Obrigado pelas informações. Vou atualizar já as planilhas