Prova ad usare l'oggetto Me (che dovrebbe corrispondere a UserControl):

codice:
Private Sub UserControl_Click() 
Dim rd As Object 

For Each rd In Me.Parent   
  If TypeOf rd Is MyOptionbutton Then 
     if Me.Container = rd.Container Then rd.Value = False   
  End If 
Next rd 
Value = True 
RaiseEvent Click 
define_pic 
End Sub

Spero di aver capito bene.

Ciao