Timer ist doch viel zu umständlich, mit Wait (keine Prozessor-Auslastung,kein DoEvents) gehts auch, aber sleep ist die einfachste:
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal Handle As Long, ByVal dwMilliseconds As Long) As Long
Public Function Wait(ByVal mSek As Long)
WaitForSingleObject -1, mSek
End Function
und so wird aufgerufen: Wait 2000
|