>>*form:init() >>for lnI = 1 to thisform.Something >> for lnJ = 1 to thisform.SomethingElse >> lcNom_lbl = "lbl_rv_" + alltrim( str( lnI)) + "_" + alltrim( str( lnJ)) >> lcAddObject = "thisform.AddObject( '" + lcNom_lbl + "', '_xlabel')" >> &lcAddObject >> endfor >>endfor >> >>*form:label_Click() >>LPARAM oLabel >>?oLabel.name >> >> >>* new class >>define class _xlabel as label >> cHookClick="Thisform.label_Click(This) >> >> procedure Click() >> =IIF(EMPTY(cHookClick),.T.,EVAL(This.cHookClick)) >> endproc >>enddefine >>>>