finesta a tempo

Attribute VB_Name = "finesta_a_tempo"

'

Option Explicit

'

' vba - Excel.

' Finetra Pop Up Temporanea.

' la durata è configurabile.

'

Sub FinestraPopUpTemporanea()

Dim txtmsg

Dim wshshell As Object, durata

durata = 3

'

txtmsg = ""

txtmsg = txtmsg & "il messaggio " & vbCrLf

txtmsg = txtmsg & "scomparità entro " & durata & " secondi " & vbCrLf

'

Set wshshell = CreateObject("Wscript.shell")

'

wshshell.popup txtmsg, durata, "intestazione messaggio"

'

End Sub