Here is the problem:
When using this code in a timing loop and the user presses the back arrow(thing) the program disappears but the beeping continues -- i think this is because the Activity.Pause event does not fire?
do
sleep(1000)
beep etc..
loop
----
Sub Sleep(ms As Long)
Dim Now As Long
Try
Now = DateTime.Now
Do Until ((DateTime.Now > Now + ms) )
DoEvents
Loop
Catch
End Try
End Sub
When using this code in a timing loop and the user presses the back arrow(thing) the program disappears but the beeping continues -- i think this is because the Activity.Pause event does not fire?
do
sleep(1000)
beep etc..
loop
----
Sub Sleep(ms As Long)
Dim Now As Long
Try
Now = DateTime.Now
Do Until ((DateTime.Now > Now + ms) )
DoEvents
Loop
Catch
End Try
End Sub