>*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 >>