Private Sub Option1_Click()
  Static bWorking As Boolean
 
  If bWorking Then Exit Sub
 
  bWorking = True
  Check
  DoEvents
  Option1.Value = True
  bWorking = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de