[AccessD] Check Box Problem

Dear List:

I have an app that is basically a questionnaire.  Most questions display an option frame with check boxes labeled Yes and No.  After making a selection the focus moves to the 'Next Screen' command button.  

Then I added an 'Auto Advance' feature where the program automatically advances to the next question after a 1/2 second delay.

Private Sub fraYesNo_AfterUpdate()
    If fraAutoAdvance = 1 Then
        Call Delay
        Call cmdNextQuestion_Click
    End If
End Sub

where delay is:

Public Sub Delay()

Dim varstop As Variant

varstop = Timer + gdblDelay

Do Until Timer > varstop
Loop

End Sub

When the question is first displayed, both the Yes and the No check boxes have a gray background.  Without the auto advance, the focus moves to the Next Screen button and the check mark dutifully appears in the proper box.  

The problem is that when the user is using the Auto-Advance feature the clicked check box remains gray, the unclicked check box turns white, and after 1/2 second the next screen appears. So it's a bit confusing to the eye.

I cannot figure out a way to make the check mark appear in the box.  Anyone see what' I'm doing wrong?

MTIA and regards,

Rocky Smolin
Beach Access Software
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030902/3f3c27be/attachment.html>