Dim tagValue As Object = Nothing Return DirectCast(tagValue, Language) 'InvalidCastException
Dim tagValue = (From rb In Me.GroupBox1.Controls.OfType(Of RadioButton) Where rb.Checked Select rb.Tag).FirstOrDefault Return DirectCast(tagValue, Language)
Return (From rb In GroupBox1.Controls.OfType(Of RadioButton)() Where rb.Checked Select DirectCast(rb.Tag, Language) ).DefaultIfEmpty(Language.None).SingleOrDefault()