Private Sub Option1_Click()
  Option1.Tag = "Click"
End Sub
 
Private Sub Option1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  If Option1.Tag <> "Click" Then
    Option1.Value = False
  End If
  Option1.Tag = ""
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de