Loop для создания кнопок Option в Userform не работает

Question

Мне нужно создать несколько кнопок параметров в Userform (каждый для элемента массива).

Я что-то упустил? Причина она возвращает ошибку ..

DefaultTop = 60 

For X = 0 To UBound(ArrPlants) 

    Set Jonas(x) = SAPPlants.Controls.Add("Forms.optionbutton.1", Y, True) 
     'Error on the above line ^^^ 

     With Jonas(x) 
      .Top = DefaultTop + 20 
      .Left = 12 
      .Caption = ArrPlants(x) 
     End With 

Next X 

Ошибка:

Error Expected Sub or Procedure

Answer 1

Вам необходимо пройти X в имени OptionButton вместо использования Jonas(X). Попробуйте ниже и посмотреть, как это работает для вас:

DefaultTop = 60 

Dim Jonas as OptionButton 

For X = 0 To UBound(ArrPlants) 

    Set Jonas = SAPPlants.Controls.Add("Forms.optionbutton." & X + 1, Y, True) 

     With Jonas 
      .Top = DefaultTop + 20 
      .Left = 12 
      .Caption = ArrPlants(X) 
     End With 

Next X 

Дальнейшее объяснение found here: