Noch eine Möglichkeit:Declare Function GetTickCount Lib "kernel32" () As LongSub Warte_Sekunden(Tausendstel_Sekunden As Long) Dim Wartezeit As Long Dim StartZeit As Double Dim Jetzt As Double StartZeit = GetTickCount() Wartezeit = 0 While (Wartezeit Jetzt = GetTickCount() Wartezeit = Jetzt - StartZeit WendEnd SubCiaoNorbert

geschrieben von Norbert M , 20.03.2000, 11:34 Uhr , 31 mal gelesen