Programm in VB warten lassen?

Hi

Hier kann mir doch bestimmt jemand helfen:

???wie kann ich in Visual Basic das Programm kurz warten lassen???

Answer 1

[MaraB]

Die folgende Funktion arbeitet in einem meiner "VB 2008 Express" - Programme

'Funktion, die die Programmausführung verzögert - Wartezeit in Millisekunden
Public Sub warte(ByVal Wartezeit As Integer)
Dim datAnfang As Date
datAnfang = Now
Do
Application.DoEvents() 'Sorgt dafür, dass das sonstige Programm aktiv bleibt.
Loop Until Now > datAnfang.AddMilliseconds(Wartezeit)
End Sub

Answer 2

[JaskiHax]

Ganz easy. Nutze eine "Sleep()"-Funktion. Diese startet eine Stopwatch und lässt sie stumpf durchlaufen:

Public Sub sleep(ByVal sleeptime As Integer)

Dim stw As New Stopwatch

stw.Start()

Do Until stw.ElapsedMilliseconds >= sleeptime

Application.DoEvents()

Loop

stw.Stop()

stw.Reset()

End Sub