' Return the Tag value of the selected RadioButton from the input array of ' controls.' This is useful when you have many radio buttons, with a value associated to ' each one, and want to select the value of the checked option. Instead of ' writing something like this:' If RadioButton1.Checked Then' myVal = 10' ElseIf RadioButton2.Checked Then' myVal = 20' ElseIf RadioButton3.Checked Then' myVal = 30' End If' you can set the radiobuttons' Tag property to 10, 20 and 30 respectively,' and then write:' myVal = GetSelectedRadioButtonValue(RadioButton1, RadioButton2,' RadioButton3)Function GetSelectedRadioButtonValue(ByVal ParamArray radioButtons As _ RadioButton()) As Object For Each btn As RadioButton In radioButtons If btn.Checked Then Return btn.Tag NextEnd Function