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
, 29 mal gelesen