For i As Integer = 0 To 4
       Dim rb As New RadioButton
 
       With rb
          .Tag = i : .Parent = Me
          .Top = (i + 1) * 50 : .Text = "Option " & CStr(i)
       End With
 
       AddHandler rb.Click, AddressOf RadioButton_Click
       rbs.Add(rb)
    Next i
 
    'Den aktuellgespeicherten Settings-Wert übernehmen
    rbs(My.Settings.Selected_RadioButton).Checked = True

  Private Sub RadioButton_Click(sender As Object, e As System.EventArgs)
 
      My.Settings.Selected_RadioButton = _
         CUShort(CType(sender, RadioButton).Tag)
 
    End Sub