Not sure exactly what you mean by control array or what you want. But try the following code:
Dim toppostition, counter As Integer
counter = 5
For I = 1 To counter
Set myoptionbuttons(I) = MyFrame.Controls.Add("Forms.optionbutton.1")
myoptionbuttons(I).Left = 0
myoptionbuttons(I).Top = topposition
myoptionbuttons(I).Width = 66
myoptionbuttons(I).Height = 18
myoptionbuttons(I).value= false
myoptionbuttons(I).caption = Range("A" & counter).Value
topposition = topposition + 18
Next I
This code will place 5 optionbuttons underneath each other starting at the top left corner of a frame called "MyFrame" and set the caption to the values in cells A1 through A5.
_________________
Hope this helps.
Kind regards, Al.
This message was edited by Al Chara on 2002-03-22 19:38