Please try this code on the Radiobutton's TextChanged Event. And change the Radiobutton's Property (AutoSize=False).
Private Sub RadioButtonOptionD_TextChanged(sender As Object, e As EventArgs) Handles RadioButtonOptionD.TextChanged
Dim s As New Size()
s.Width = RadioButtonOptionD.Size.Width
s.Height = 0
If RadioButtonOptionD.Text.Length() <= 100 Then
s.Height = 60
RadioButtonOptionD.Size = s
ElseIf RadioButtonOptionD.Text.Length() <= 200
s.Height = 80
RadioButtonOptionD.Size = s
ElseIf RadioButtonOptionD.Text.Length() > 200
s.Height = 100
RadioButtonOptionD.Size = s
End If
Adjusting the height of the RadioButton according to the lines of its text.
if the RadioButton has more then 2 lines? then it will change the height of the Radio button up to 150.
If RadioButtonOptionD.Text.Split(vbNewLine).Count >= 2 Then
s.Height = 150
RadioButtonOptionD.Size = s
End If
RadioButtonOptionD.Refresh()
End Sub