I am attempting to create multi-page userform for use with surveys. The
general idea is that each tab will house one of the questions and (more
importantly) its possible answers.

Below is my current attempt for the first question. RList is an array
containing a list of names by region and changes depending on values of the
active row when the userform is activated. If there is a way to make the "1"
in "OptionButton1" change with the value of X I think I would have it. (as
written, ObjectButton1 is moved to the end with a caption equal to the last
object in RList)

Private Sub MultiPage1_Change()
Select Case MultiPage1.Value
Case 0
For X = 0 To RList.Count - 1
OptionButton1.Left = 12
OptionButton1.Top = 30 + X * 18
OptionButton1.Caption = RList(X + 1)
Next X
Case 1
...
...
Case Else
Exit Sub
End Select
End Sub

Ideally, I'd like to start with a blank page then create, name, and place
new controls (later portions of the survey will include text boxes and check
boxes) by looping through various arrays like this. Currently I just have
the max possible number of controls and will hide the ones not needed.

Thanks

If I follow

With Me.Controls("OptionButton" & myNum)
..left = 12
' etc
End With

Regards,
Peter T



"Magness" <(E-Mail Removed)> wrote in message
news:3E6C5540-E559-410A-B56F-(E-Mail Removed)...
>I am attempting to create multi-page userform for use with surveys. The
> general idea is that each tab will house one of the questions and (more
> importantly) its possible answers.
>
> Below is my current attempt for the first question. RList is an array
> containing a list of names by region and changes depending on values of
> the
> active row when the userform is activated. If there is a way to make the
> "1"
> in "OptionButton1" change with the value of X I think I would have it. (as
> written, ObjectButton1 is moved to the end with a caption equal to the
> last
> object in RList)
>
> Private Sub MultiPage1_Change()
> Select Case MultiPage1.Value
> Case 0
> For X = 0 To RList.Count - 1
> OptionButton1.Left = 12
> OptionButton1.Top = 30 + X * 18
> OptionButton1.Caption = RList(X + 1)
> Next X
> Case 1
> ...
> ...
> Case Else
> Exit Sub
> End Select
> End Sub
>
> Ideally, I'd like to start with a blank page then create, name, and place
> new controls (later portions of the survey will include text boxes and
> check
> boxes) by looping through various arrays like this. Currently I just have
> the max possible number of controls and will hide the ones not needed.
>
> Thanks

Thanks. This will do it.

"Peter T" wrote:

> If I follow
>
> With Me.Controls("OptionButton" & myNum)
> ..left = 12
> ' etc
> End With
>
> Regards,
> Peter T
>
>
>
> "Magness" <(E-Mail Removed)> wrote in message
> news:3E6C5540-E559-410A-B56F-(E-Mail Removed)...
> >I am attempting to create multi-page userform for use with surveys. The
> > general idea is that each tab will house one of the questions and (more
> > importantly) its possible answers.
> >
> > Below is my current attempt for the first question. RList is an array
> > containing a list of names by region and changes depending on values of
> > the
> > active row when the userform is activated. If there is a way to make the
> > "1"
> > in "OptionButton1" change with the value of X I think I would have it. (as
> > written, ObjectButton1 is moved to the end with a caption equal to the
> > last
> > object in RList)
> >
> > Private Sub MultiPage1_Change()
> > Select Case MultiPage1.Value
> > Case 0
> > For X = 0 To RList.Count - 1
> > OptionButton1.Left = 12
> > OptionButton1.Top = 30 + X * 18
> > OptionButton1.Caption = RList(X + 1)
> > Next X
> > Case 1
> > ...
> > ...
> > Case Else
> > Exit Sub
> > End Select
> > End Sub
> >
> > Ideally, I'd like to start with a blank page then create, name, and place
> > new controls (later portions of the survey will include text boxes and
> > check
> > boxes) by looping through various arrays like this. Currently I just have
> > the max possible number of controls and will hide the ones not needed.
> >
> > Thanks
>
>
>