Search Tools Links Login

A simple Wait Function

Ur code waits for X seconds without stopping complete VB like most others (incl. Sleep Api)

Original Author: PrixM


'Set the API Declaration and the Code into a Module
'to use the function Wait(x) x stands for the amount of seconds to wait

API Declarations

Public Declare Function GetTickCount Lib "kernel32.dll" () As Long


Public Function Wait(ByVal TimeToWait As Long) 'Time in seconds
Dim EndTime   As Long
EndTime = GetTickCount + TimeToWait * 1000 '* 1000 Cause u give seconds and GetTickCount uses Milliseconds
Do Until GetTickCount > EndTime
End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 101 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.