Public Function getValueRadioSelected(control As Control, groupName As String) As String
        If TypeOf control Is RadioButton Then
            Dim rb As RadioButton = DirectCast(control, RadioButton)
            Dim nome As String = rb.GroupName
            If nome = groupName Then
                If rb.Checked Then
                    Return rb.Attributes("value")
                End If
            End If
        End If

        For Each c As Control In control.Controls
            Dim result As String = getValueRadioSelected(c, groupName)
            If result <> "" Then Return result
        Next
        Return ""
    End Function

    Public Function getValueRadioSelected1(control As Control, groupName As String) As String
        Dim result As String = ""
        For Each c As Control In control.Controls
            If TypeOf c Is RadioButton Then
                Dim rb As RadioButton = DirectCast(c, RadioButton)
                If ((rb.GroupName = groupName) AndAlso rb.Checked) Then
                    result = rb.Attributes("value")
                    Return result
                End If
            End If
            If (result = "") Then
                result = getValueRadioSelected1(c, groupName)
            End If
        Next

        Return result
    End Function