Duh, ok one little piece was missing out of my code and I didn't catch it in
any of your examples either... Finally caught my eye in the help menu under
timer.. :-)

"DoEvents"

When I put that intot he code I had it then yoelds to other process like
clicking the start/stop button or changing the scroll bar value...


Private Sub ToggleButton1_Click()
Do While ToggleButton1.Value = True
DoEvents
Sleep ScrollBar1.Value
Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
Loop
End Sub


"JLGWhiz" wrote:

Probably would help if I posted the code also. It will not work at less than
one second, apparently because there is not enough time in the DoEvents to
proocess the allow the change to process.

Sub freq()
Dim i As Long, s As Double
i = Range("B2").Value
Do Until counter = 30
If i < Range("B2").Value Then
i = Range("B2").Value
End If
Beep
s = Timer + i
Do While Timer < s
DoEvents
Loop
Beep
Loop
End Sub


"Kevin" wrote:

I did try modeless with no luck. mayber there is a different way to go about
this...
What I want to happen is to get a tap sound every millisecond that is
defined by the scroll bar value.
I would like to be able to change the scroll bar value as its tapping and
have it increase or decrease accordingly. And of course start and stop when
the button is clicked. Is there some way better than a simple loop to do
this?

Thanks again,
Kevin


"JLGWhiz" wrote:

What you can do is either set a limit with a counter or use the OnTime method
to turn it off.

"Kevin" wrote:

I'm trying to make what I thought was a simple metronome.

I have a userform with a scroll bar and a toggle button

The toggle buttonn is for the start stop. the scroll bar is for the time
value in between taps.

right now it is working when I start it but then I cannot click on the
toggle button again to get it to stop, or click on the scroll bar to change
the tempo value.

How can I run a loop and stiil be able to click on a button on the user form?


Here is my code...

Private Sub ToggleButton1_Click()
Do While ToggleButton1.Value = True
Sleep ScrollBar1.Value
Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
Loop
End Sub

Thanks
Kevin