自制单选框控件的关键问题

Question

如果你是在写Active x 控件,你可以看看下面的过程,这想是你要的.
Private Sub SetOnlyMe()
    Dim tempControl As Control
    Dim i As Long
    
    On Error Resume Next
    For i = 0 To UserControl.ParentControls.Count - 1
        Set tempControl = UserControl.ParentControls.Item(i)
        If TypeOf tempControl Is ImageButton Then
           If tempControl.Grouped Then
              If Not (tempControl Is UserControl.Extender) Then
                 If tempControl.Value <> 0 Then
                    tempControl.Value = 0
                 End If
              End If
           End If
        End If
    Next
    Err.Clear
End Sub