create table thisform( X C(10)) insert into thisform values( "From Table" ) oSympa = CreateObject( "FormSympa" ) ? oSympa.F1() ? oSympa.F2() define class FormSympa as Form X = "from Object" function F1 return thisform.X endproc function F2 return m.thisform.X endproc enddefine