27745 total geeks with 3539 solutions
Recent challengers:
 Welcome, you are an anonymous user! [register] [login] Get a yourname@osix.net email address 



User's box

Forgot password?
New account

<strong><a href="http:/ /www.zggjbb. com/">replic a omega watches</a>< /strong> <st rong><a href="http:/ /www.zggjbb. com/">copy omega watches</a>< /strong> <st rong><a href="http:/ /www.zggjbb. com/">fake omega watches</a>< /strong> <br ><br><br><br ><br><br><br ><stro
[b][url=http ://www.jocsp ernoies.com/ bell-ross216 -c-48.html]C learance of <strong><a href="http:/ /www.jocsper noies.com/be ll-ross216-c -48.html">Cl earance of Replica Bell Ross watches</a>< /strong> <br > <strong><a href="http:/ /www.jocsper noies.com/be ll-ross216
<br><strong> <a href="http:/ /www.iwcwatc hes.top/">iw c watches</a>< /strong> <st rong><a href="http:/ /www.iwcwatc hes.top/">iw c watches for sale</a></st rong> <br><s trong><a href="http:/ /www.iwcwatc hes.top/">iw c watches price</a></s trong> <br>< br><br><br>< br><b
[b][url=http ://www.herme slist.com/]h ermes disc<strong> <a href="http:/ /www.hermesl ist.com/">he rmes discount store</a></s trong> <br> <strong><a href="http:/ /www.hermesl ist.com/">er mes outlet online shop</a></st rong> <br>
<ul><li><str ong><a href="http:/ /www.hermesl ist.com/">he rmes handbags outlet</a></ strong> </li ><li><strong ><a href="http:/ /www.hermesl ist.com/">di scount hermes bags</a></st rong> </li>< li><strong>< a href="http:/ /www.hermesl ist.com/">he rmes handbags replica<

Donate and help us fund new challenges
Due Date: Nov 30
November Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00

News Feeds
The Register
Grow up, judge
tells EFF: You?re
worse than a
complaining child
Why Microsoft
yanked its latest
Windows 10 update
download: It
hijacked privacy
EMC mess sends New
Zealand University
TITSUP for two days
Cartoon brings
proper tech-talk to
Mincing Nokia"s
factories made
Microsoft a sausage
Hacker predicts
AMEX card numbers,
bypasses chip and
Second Dell
backdoor root cert
Amazon resets
account passwords
feared compromised
? report
Tor Project:
Anonymity ain"t
free, folks. Pony
Dell computers
bundled with
backdoor that
blurts hardware
fingerprint to
Windows 10 Fall
Update Uninstalls
Desktop Software
Without Informing
The Tamagochi
Singularity Made
Real: Infinite
Tamagochi Living On
the Internet
On iFixit and the
Right To Repair
How Computer
Scientists Cracked
a 50-Year-Old Math
2015 "Dance Your
PhD" Winner
Green Light Or No,
Nest Cam Never
Stops Watching
Hospitals Can 3D
Print a Patient"s
Vasculature For
Aneurysm Pre-Op
UK Mobile Operator
Could Block Ads At
Network Level
Open-Source Router
is a Hit on
Indiegogo (Video)
Lori Garver Claims
That NASA Is "Wary"
of Elon Musk"s Mars
Article viewer

How to use Pause in VB

Written by:dimport
Published by:Nightscript
Published on:2003-06-21 07:19:46
Topic:Visual Basic
Search OSI about Visual Basic.More articles by dimport.
 viewed 85800 times send this article printer friendly

Digg this!
    Rate this article :
In this tutorial, you will learn about the public sub Pause and what is it used for.

Here is the code of this public sub:

Public Sub Pause(NbSec As Single)
 Dim Finish As Single
 Finish = Timer + NbSec
 Do Until Timer >= Finish
End Sub

First of all, this Public Sub is used in order to put an interval between actions. It can be used in many situation. To use it, you need to type "pause" and "1" (for a pause of 1 second, 0.2 for a 1/5 second pause...) Let see some exemple of application:

Open a new project and add the Public Sub Pause to your code page. Then, in general section, declare the following variables:

Dim x1 As Long, x2 As Long, y1 As Long, y2 As Long, time As Byte

Now in: Form_Click paste the following code:

For time = 1 To 200
 x1 = Int(Rnd * 5000)
 y1 = Int(Rnd * 3000)
 x2 = Int(Rnd * 5000)
 y2 = Int(Rnd * 3000)
 Me.DrawWidth = 1
 Me.Line (x1, y1)-(x2, y2), QBColor(5)
Next time

Test it and notice the speed of the line draw. Now add
Pause 0.1
Me.Line (x1, y1)-(x2, y2), QBColor(5)

Test it again. You see the line are drawn slower. For and Next are one of the Pause Sub application but you can use is everywhere you want an pause between to events.

What you have learned:
  • What is the Public Sub Pause

  • How to use the Public Sub Pause

This article was originally written by Welk

Did you like this article? There are hundreds more.

2006-08-11 12:43:08
I have found that this pause works but at a heavy cost. The processor goes to over 50% during the pause. That's on a system with a P4 3ghz 2GB RAM
2006-08-11 12:52:44
Have you tried putting the DoEvents inside the Do...Loop?
2006-08-12 01:50:13
If all you need is a simple pause (or perhaps even complex ones) in a for loop or so.. use a Timer. You wont see any processor usage.
2006-12-19 04:15:30
Have you tried to use this when you go from a day to another. For example put a pause of 10 sec and start the pause at 23:59:53. The result is that you will never get out from this pause:D
2007-05-24 11:23:13
Try thread Sleep API sub from kernel32
2008-05-20 00:26:27
System.Threading.Thread.Sleep(numSec * 1000)
2009-12-02 16:18:55
2011-06-27 23:54:35
I still have problems with this aplication and <a href="http://www.rx-mex.com/viagra/viagra-online.html">Viagra Online</a> I simply can't do it !
Anonymously add a comment: (or register here)
(registration is really fast and we send you no spam)
BB Code is enabled.
Captcha Number:

Test Yourself: (why not try testing your skill on this subject? Clicking the link will start the test.)
VB Potpourri: Programming, History And Syntax by batterseapower

A nice little collection of the basics of Visual Basic.
Advanced Programming Techniques by batterseapower

A fiendish test covering some of the more obscure elements of Visual Basic 6.

Your Ad Here
Copyright Open Source Institute, 2006