You need to set the flag to true once its started:
VB Code:
  1. Private Sub Product_Click(Index As Integer)

  2. Static Blah As Boolean

  3.  
  4. If Blah = True Then: Exit Sub

  5.  
  6. Blah = True ' <--

  7. checked_box = 0

  8. For I = 0 To Product.Count - 1

  9. Blah = True

  10. Product.Item(I).Value = 0

  11. Next I

  12. checked_box = Index

  13. Product.Item(Index).Value = 1

  14. Blah = False

  15. End Sub

Phreak