Visual Basic Forum

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Name: WaitHere
Funktion: Programm läuft bestimmte Zeit in einer Schleife. Eine Art Pause.
Rückgabe: Keine

Benötigte Api:
Visual Basic: [code]Private Declare Function GetTickCount Lib "kernel32" () As Long[/code]
Visual Basic: [code]
Public Sub WaitHere(ByVal Seconds As Long)
Dim x1 As Long, x2 As Long
x2 = GetTickCount + (Seconds * 1000)
Do Until x1 >= x2
x1 = GetTickCount
DoEvents
Loop
End Sub
[/code]
_________________