>Dear Colleagues,
>
>The codes below throw "A member object with this name already exists." error on the second iteration. Please can someone be kind enough to point me in the right direction?
>

>loForm = Createobject("Form")
>loForm.Caption = "Dynamic Label Example"
>loForm.Visible = .T.
>
>CREATE CURSOR DynamicLabel (cDescript c(50))
>INSERT INTO DynamicLabel (cDescript) VALUES ("Oustanding")
>INSERT INTO DynamicLabel (cDescript) VALUES ("Very Good")
>INSERT INTO DynamicLabel (cDescript) VALUES ("Good")
>INSERT INTO DynamicLabel (cDescript) VALUES ("Fair")
>INSERT INTO DynamicLabel (cDescript) VALUES ("Unsatisfactory")
>INSERT INTO DynamicLabel (cDescript) VALUES ("Not Applicable")
>
>GO TOP IN DynamicLabel 
>i = 1
>nTop = 10
>Scan
>** Add Label Control
>  oLabel = "elbl"+Alltrim(Str(i))
>  loForm.Newobject("oLabel", "Label")
>  With loForm.oLabel
>    .Top = nTop
>    .Left = 10
>    .Caption =Alltrim(cDescript)
>    .Visible = .T.
>    .AutoSize = .T.
>  ENDWITH
>  i = i + 1
>  nTop = nTop + 20
>Endscan
>

>TIA
>Alex Kato

As I replied in another forum, you have two quotation marks too much. Replace this line

loForm.Newobject("oLabel", "Label")

with this

loForm.Newobject(m.oLabel, "Label")

This means that the correct code should be:

loForm = Createobject("Form")
loForm.Caption = "Dynamic Label Example"
loForm.Visible = .T.

CREATE CURSOR DynamicLabel (cDescript c(50))
INSERT INTO DynamicLabel (cDescript) VALUES ("Oustanding")
INSERT INTO DynamicLabel (cDescript) VALUES ("Very Good")
INSERT INTO DynamicLabel (cDescript) VALUES ("Good")
INSERT INTO DynamicLabel (cDescript) VALUES ("Fair")
INSERT INTO DynamicLabel (cDescript) VALUES ("Unsatisfactory")
INSERT INTO DynamicLabel (cDescript) VALUES ("Not Applicable")

GO TOP IN DynamicLabel 
i = 1
nTop = 10
Scan
** Add Label Control
  *** oLabel = "elbl"+Alltrim(Str(i)) && The next line is shorter
  oLabel = "elbl"+Transform(i)
  loForm.Newobject(m.oLabel, "Label")
  With loForm.oLabel
    .Top = nTop
    .Left = 10
    .Caption =Alltrim(cDescript)
    .Visible = .T.
    .AutoSize = .T.
  ENDWITH
  i = i + 1
  nTop = nTop + 20
Endscan