Public Property Let Value(ByVal vNew As Boolean)
   Dim obj As Object
 
   With UserControl
      For Each obj In .ParentControls
         If TypeOf obj Is MyOptionButton Then
            If obj.GroupName = m_GroupName Then
               obj.Value = False
            End If
         End If
      Next
   End With
 
   m_Value = vNew
   PropertyChanged "Value"
   DrawPoint
End Property

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.