RadioButton的问题？

我在网上找到个XP风格的RadioButton程序！private sub UserControl_Click()
    Dim rd as object
    For Each rd In UserControl.Parent
        If TypeOf rd Is XPRadioButton Then   'XPRadioButton是控件名称
            rd.Value = False
        End If
    Next rd
end sub现在在Windows Form中使用没问题，可我把它放到另外一个UserControl中去的时候却提示出错！！！
我认为是"For each rd In UserControl.Parent"出现问题？
请问这个地方怎么改动？