ndthanh/WaitFor.bas

Created January 20, 2017 11:31

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/ndthanh/e297d360d1c606c4c46f0115fbdd534d.js"></script>
Save ndthanh/e297d360d1c606c4c46f0115fbdd534d to your computer and use it in GitHub Desktop.

Download ZIP

https://www.hocexcel.online/userform-nhap-lieu-va-tra-cuu.html

Raw

WaitFor.bas

	Sub WaitFor(NumOfSeconds As Single)
	Dim SngSec As Single
	SngSec = Timer + NumOfSeconds

	Do While Timer < SngSec
	DoEvents
	Loop
	End Sub

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment