Frage zu Code für UF
09.04.2005 10:37:30
Bryan
Mit folgendem Code (hab ich von Ingo) möchte ich eine UF für 5sek einblenden, dann soll sie von allein wieder ausgeblendet werden, geht aber nicht (einblenden ja, selbst ausblenden nein), hab ich zuweisungen oder was vergessen ?
Sub Hinweis1()
UsrSichernfolgt.Show
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Unload UsrSichernfolgt
End Sub
danke für die Hilfe
gruss Bryan
Anzeige