title image


Smiley Re: msgbox autom öffnen- nach 10sek autom schliessen....
Hallo





das geht so z.B.



Sub MSGBOX_autom()

Dim WsShell, intText As Integer

Set WsShell = CreateObject("WScript.Shell")

intText = WsShell.Popup("Hinweis wird automatisch geschlossen!!!", 10, "Huhu ...", 2 + 48)

' Die 10 in der letzten Zeile gibt die Dauer der Öffnung an.

' Die 2 und 48 steuern die anzuzeigenden Symbole und Buttons

End Sub




 

Gruß UweD

Über Rückmeldungen würde ich mich freuen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: