Private RadioButtons() As RadioButton
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Try
            RadioButtons = Array.CreateInstance(GetType(RadioButton), 10)
            For i As Integer = 0 To 9
                RadioButtons(i) = New RadioButton
                With RadioButtons(i)
                    .Name = "RadioButtons" & i
                    .Top = i * 21
                    AddHandler .CheckedChanged, AddressOf _
                      RadioButtons_CheckChanged
                End With
                Me.Controls.Add(RadioButtons(i))
            Next
        Catch ex As Exception
            MsgBox("Fehler beim Ermitteln der Verkäufer: " & ex.ToString, _
              MsgBoxStyle.Critical, "DB-Fehler")
        End Try
    End Sub
 
    Private Sub RadioButtons_CheckChanged(ByVal sender As Object, ByVal e As _
      EventArgs)
        MessageBox.Show(sender.name & ".checked = " & sender.checked)
    End Sub