Hi all,

In an Excel workbook I created a multiplechoice test. On the first sheet
they select the test. On the second sheet they make the questions. The
questions are in cells The possible answers are in Optionbuttons
(OLEControls).
The problem is: After selecting the text the right questions show up, but
the anwers in the captions of the optionsbuttons only show up after clicking
in the worksheet and after a delay of a few secons. There are 300
optionsbuttons (100 questions with 3 possible answers).

The code for filling the controls is (part of a larger procedure):

Do Until rs.EOF
       For Each oleObj In wsVragen.OLEObjects
           If TypeOf oleObj.Object Is MSForms.OptionButton Then
               Set optObj = oleObj.Object
               VraagNo = Mid(optObj.Name, 5, Len(optObj.Name) - 5)
               AntwoordTeken = Right(optObj.Name, 1)

               If rs!Vraagnummer = VraagNo And rs!Antwoordletter =
AntwoordTeken Then
                   oleObj.Visible = True
                   optObj.Caption = rs!Antwoord & ""
               End If
           End If
       Next oleObj
       rs.MoveNext
   Loop
   rs.MoveFirst

Vraag = Dutch for Question
Antwoord = Dutch for Answer

The question is: Why are the captions of the optionbuttons refreshed after
running the code with delay? How Can I solve this problem?

TIA,
Jan Vente