Visual Basic

    Private Sub CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
        MessageBox.Show(sender.Name)
    End Sub

Dim newRadioButton As New RadioButton
With newRadioButton
    .Location = blah
    .Text = blah
    blah
    blah
End With
Panel1.Controls.Add(newRadioBUtton)

G.Manivannan wrote:

Public Function Createcontrols(ByVal intidx As Integer)

radio1.Name = "Radio1"

Public Function GetRadioButtonChecked(ByVal controlName As String) As Boolean
    For Each c As Control In Panel1.Controls
        If TypeOf c Is RadioButton Then
            Dim rb As RadioButton = DirectCast(c, RadioButton)
            If rb.Name = controlName Then
                Return rb.Checked
            End If
        End If
    Next
    Return False
End Function