Quit Do...Loop Until when form loses focus?

[PSchubert]

Is there a way to exit a Do...Loop Until when the form containing it loses the focus? I've been trying for hours to figure out how to code this in the loop structure, but I'm really not even close. As a relative newbie, I guess this shouldn't surprise me. If anyone with greater knowledge could help short-cut my ineptitude, I would really appreciate it!
Thanks in advance.

 

[orna]

Try Dev Ashish

http://www.mvps.org/access/api/api0030.htm

 

[PSchubert]

Here's the solution at which I arrived (admittedly with help)! Perhaps someone else might benefit from it.

'########## Code start ##########

Option Compare Database
Option Explicit
Dim X As Boolean

Sub Form_Deactivate()
X = False
End Sub

Sub SomeProcedure()
X = True
Do While X
DoEvents
'...Code Here...
Loop
End Sub

'########## Code end ##########