Determine which radiobutton is checked in group of radiobuttons

Private Sub Options_CheckedChanged( _ByVal sender As System.Object, _ByVal e As System.EventArgs) _Handles rd1.CheckedChanged,rd2.CheckedChecked

Dim c As RadioButton = CType(sender, RadioButton)

select case c.Name

case "rd1"
'Write code here for first radio button
case "rd2"
'Write code here for second radio button

End select

End Sub