From: steve.c.marchant@tiscali.co.uk   
      
   see what you mean. Thanks   
   "Dikkie Dik"  wrote in message   
   news:b1177$448b4d4e$57d40752$29309@news.versatel.net...   
   > Putting a "DoEvents" in the loop should give VB the chance to listen to   
   > the events of the second button.   
   >   
   > steve marchant wrote:   
   >> trying to learn VB6. Simple counting loop which counts to 8 in 1 sec   
   >> intervals,  then starts from 1 again and repeats.   
   >> Have two Command buttons on the form. Cmd1 starts the counting, and I   
   >> need to know how to stop it with Cmd2. Here's my code so far:   
   >> Private Sub Command1_Click()   
   >> Dim x, y, m   
   >>  m = 1   
   >>   
   >> Do   
   >> Print m   
   >> x = Timer   
   >> Do Until Timer = x + 1   
   >> y = Timer   
   >> Loop   
   >>   
   >> m = m + 1   
   >>   
   >>   If m > 8 Then   
   >>  m = 1   
   >>  End If   
   >>   
   >> Loop   
   >> End Sub   
   >>   
   >>   
   >>   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)