Um SplashScreen com Windows Script Host - JJoão (06/2005)

Dúvida colocada: Queria mostrar uma mensagem no ecran mas por breves segundos sem estar a fazer formulário, tipo splash screen..

Solução: Pode usar o Windows Script Host via VBA para colocar uma mensagem temporariamente no écran através do método:
objecto.Popup ( Mensagem , [tempo], [Titulo] , [ Formato] )

Este método é utilizado para mostrar uma mensagem ao utilizador e esperar que este clique num dos botões disponíveis, ou opcionalmente, que expire o tempo definido para desaparecer, o exemplo abaixo mostra a mensagem durante 2 segundos.

Sub SplashScreen()
    Dim WShell As Object
    Dim mensagem As String
    mensagem = Space(50) & "http://jjoao2k.no.sapo.pt" & Space(50)
    Set WShell = CreateObject("WScript.Shell")
    r = WShell.Popup(mensagem, 2, "Titulo", 4096)
    Set WShell = Nothing
End Sub 

Não fica muito atraente, mas é uma maneira de colocar uma mensagem no écran para o utilizador ler, e depois fazê-la desaparecer sem estar a fazer formulários.