Function fu_liste()
    Dim start_height As Integer
    Dim start_width As Integer
    Dim start_top As Integer
    Dim start_left As Integer
    Dim i As Integer
 
 
    start_height = 255
    start_width = 1815
    start_top = 1200
    start_left = 120
 
    For i = 0 To 10
    Set OptionButtonNeu = form1.Controls.Add("VB.OptionButton", _
      "OptionButtonNeu" & i, form1)
        With OptionButtonNeu
            .Visible = True
            .Width = start_width
            .Height = start_height
            .Caption = "start" & i
            .Top = (start_top + i * (start_height + 100))
            .Left = start_left
 
 
        End With
 
    Next
 
 
End Function